95 CANADA) 


275 (3. 





urnal of 


Software fools 












Pook [Mt PROFESSIONAL PROGRAMMER 








J 
a 
rare 
— 
— 
| Fed 2 
= 2 2 
O os sd v @ 
(D eS oN 
2 @ = 0 
= Zn YF 29 2 £e¢ Ozees 
z Qwe= os —e ve. 6S 5°50 
5 SaMmoee - GS Op Beer 
x —eme> SS =5 ss e238 
: —WY%to® 50 2S sa otk: 
tt mmama<«z Lu. OY Ga Lu O.. JIU LOZ 











Instant 


Build tutorial repla 
or animated proto types. } 
keystrokes and pause times. Has the unusual ability 
to insert prompts, pop-ups, proto types, user involvement, 
music, and bragenine: menus into replays. 









Memorize and replay 





Includes Screen Maker, Keystroke/Time Editor, Proto Typer, 
Text Editor, Music Maker, Menu Maker, Screen Grabber, Animator, 
Control and Insertion Guides. 


"IT highly recommend Instant Replay." Computer Language 


"Indispensable...A clear improvement over Dan Bricklin’s Demo Program." 
PC Magazine 


"Instant Replay brings new flexibility to prototypes, tutorials, and gitaes 
eventual implementation." Electronic Design 


"When replayed it will appear that the tutorial was part of the program.” PC WEEK 
"Incredible...we built our entire Comdex Presentation with Instant Replay." Panasonic 


250 Page Manual, Online Tutorial, 60 day satisfaction money back guarantee. | | 
(Not Copy Protected) 


i 
Call or Write. We accept Visa, Amex, Master Card, COD, PO. 
Dealer Inquiries Welcome. Outside US pays postage. \ 
Instant Replay II (tm) $ 149.95 Nostradamus Inc. 
Demo Diskette $ 5.00 3191 South Valley Street (ste 237) 
Dealer Poster $ 3.00 Salt Lake City, Utah 84109 < Circle no. 251 on reader service card. 


| (801) 487-9662 . 








Coopers & Lybrand selected Gold Hill 


Expert systems like Coopers & Lybrand’s 
ExperTAX™ are powerful tools that can be em- 
ployed for corporate clients in an increasingly 
sophisticated and complex business environ- 
ment. Designed to assist staff accountants with 
tax accrual and tax planning issues, ExperTAX™ 
was developed by Coopers & Lybrand with Gold 
Hill’s Golden Common LISP, for use on an IBM 
PC XT, AT or compatible. 

With ExperTAX, Coopers & Lybrand’s partners 
and staff can provide corporate clients with the 
combined competence and experience of many 
of the firm’s tax and audit professionals. Each 
time an individual client interacts with Coopers 
& Lybrand, it’s as if that specialized tax knowl- 
edge is available in “computerized” form. 

It’s hard to believe that a sophisticated expert 
system like this one could be developed on a 
microcomputer. But it’s no less amazing than 
the AI applications that Beckman Instruments, 
Honeywell, Martin Marietta, the USDA and 
other leading organizations are developing 
and delivering on IBM PC XTs and ATS, 
using Gold Hill. 

That's why IBM, Digital and 
TI distribute Golden Common LISP 
on their PCs. And why GCLISP 


is already the accepted standard for 
AI on the PC. GOLD HILL” 


for their expert tax system. 






Gold Hill also offers developers a family of 
tools for PC-based expert system development 
and delivery. Golden Common LISP DEVEL- 
OPER— including 286- and 386-based software— 
lets you create your own expert systems that 
will run on PCs. Add Gold Hill’s GCL RUN and 
you can take AI applications developed on PCs— 
and deliver runtime versions of them for inter- 
nal delivery or external distribution. You can 
even network these applications with leading AI 
hardware using Golden Common LISP NET- 
WORKS. Plus, there’s the Gold Hill 386 LISP 
System—a 386-based LISP system that trans- 
forms your existing PC into a LISP machine. 
Finally, for the most powerful expert system 
building environment soon to be available on 
the PC, there’s Gold Hill’s GoldWorks. 

Whether your expert system application is 
in financial planning, or in something just as 
important to you, let Gold Hill help with AI 
on the PC. To learn more, call toll-free today: 


1-800-242-LISP 


In Mass.: (617) 492-2071 
Gold Hill Computers, Inc. 
163 Harvard St., 
Cambridge, MA 02139 


Gold Hill. The expert in AI on PCs. 


© 1986 Gold Hill Computers, Inc, Gold Hill, Golden Common LISP, GCLISP, Golden Common LISP DEVELOPER, GCL RUN, Golden Common LISP NETWORKS, Gold 
Hill 386 LISP System, and GoldWorks (formerly ACORN) are trademarks of Gold Hill Computers, Inc. IBM, IBM PC, PC AT and PC XT are trademarks of International 
Business Machines Corp. Digital is a trademark of Digital Equipment Corporation. TI is a trademark of Texas Instruments. ExperTAX is a trademark of Coopers & 


Lybrand. 
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ANOTHER 
PLUS FROM 
BLAISE 
COMPUTING 


The best just got bet- 
ter! Turbo POWER 
TOOLS, acclaimed as 


support package for 

Turbo Pascal, now has 

even more functions, more detailed docu- 
mentation and more sample programs. 


NOSECRETS 


Turbo POWER TOOLS PLUS is crafted so 
that the source is efficient, readable and 
easy to modify. We don’t keep secrets! We 
tell you exactly how windows are managed, 
how interrupt service routines can be writ- 
ten in Turbo Pascal, and how to write mem- 
ory resident programs that can even access 
the disk. Maybe you’ve heard of some un- 
documented DOS features that resident 
programs use to weave their magic. Turbo 
POWER TOOLS PLUS documents these 
features and lets you make your own magic! 


Here’s just part of the PLUS 
in Turbo POWER TOOLS PLUS: 


WINDOWS that are stackable, re- 
movable, with optional borders anda 
cursor memory. 

FAST DIRECT VIDEO ACCESS for 
efficiency. 

SCREEN HANDLING including 
multiple monitor and EGA 43-line 
support. 

POP-UP MENUS which are flexible, 
efficient and easy to use, giving your 
applications that polished look. 

INTERRUPT SERVICE ROUTINES 
that can be written in Turbo Pascal 
without the need for assembly lan- 
guage or inline code. 


Reprinted from PC Magazine, June 10, 1986 Copyright © 


Power ‘Tools Plus” 


Window Routines. 
weraimoeanner Mlemory Resident Routines. 


Routinely. 


INTERVENTION CODE lets you de- 
velop memory resident applications 
that can take full advantage of DOS 
capabilities. With simple procedure 
calls, you can ‘“‘schedule”’ a Turbo 
Pascal procedure to execute either 
when a “hot key” is pressed, or ata 
specified time. 

PROGRAM CONTROL ROUTINES 
allow you to run other programs from 
Turbo Pascal, and even execute DOS 
commands. 


MEMORY MANAGEMENT allows 
you to monitor, allocate and free DOS- 
controlled memory. 

DIRECTORY AND FILE HAN- 
DLING support to let you take advan- 
tage of the newer features of DOS 
including networking. 

STRING procedures al- 
lowing powerful trans- 
lation and conversion 
capabilities. , oO as 

FULL SOURCE CODE 1°! 
for all included routines, 


sample programs and_ 1 Name: 
utilities. \ nian Ad 
DOCUMENTATION, | 


TECHNICAL SUPPORT ! CY 
and attention to detail that 


1986 Ziff-Davis Publishing Company 


domestic orders ad 


...one package stands out as 
the best support available for Turbo 
Pascal programmers: Blaise Com- 
puting’s Turbo Power Tools. This 
definitive set of prewritten Pascal 
functions and procedures will 
make the life of any programmer— 
from the beginner to the hard-core 
professional—easier and more 
productive. 


have distinguished 
Blaise Computing 
over the years. 


Turbo POWER 
TOOLS PLUS sup- 
ports Turbo Pascal 
Version 2.0 and 


later and 1s just 
$99.95. 


Another quality prod- 
uct from Blaise Computing: Turbo ASYNCH 
PLUS™ 

A new package which provides the crucial 
core of hardware interrupt support needed to 
build applications that communicate. 
ASYNCH PLUS offers simultaneous buffered in- 
put and output to both COM ports at speeds up 
to 9600 baud. The XON/XOFF protocol is sup- 
ported. Now it also includes the “KMODEM” 
file-transfer protocol and support for Haves 
compatible modems. 

The underlying functions of Turbo ASYNCH 
PLUS are carefully crafted in assembler for effi- 
ciency and drive the UART and programmable 
interrupt controller chips directly. These func- 
tions, installed as a runtime resident system, 
require just 3.2K butes. The high level function 
are all written in Turbo Pascal in the same 
style and format as Turbo POWER TOOLS 
PLUS. All source code gy is included for just 
$99.95. yy 


cine” Seen GPT 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 


ORDER TOLL-FREE 800-227-8087 


Calif. residents call (415) 540-5441 _—§ ~-———-— 77 
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Artificial nerves p> | Al: An Artificial Neural Network Experiment 

by Robert Jay Brown 

The greatest challenge in artificial intelligence is the 

learning problem: how to make programs that can learn 

from experience. One paradigm that shows promise is the 

neural network approach, which is both a natural 

approach to the learning problem and a radical ae 

in thinking about programming. 

AI: MYCIN-Like Expert Systems 

py Richard W. Grigonis S 

How to build a backward-chaining expert system without 
n “Al language. ”’ 
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AL Four PROLOGs for the Macintosh 

by Dan L. Pierson 

Dan compares four PROLOG packages for the Mac and 
describes various dialects and features of the language. 
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C CHEST 

by Allen Holub 

Allen describes some of the features of his nroff-like text 
editor, nr. In the Flotsam and Jetsam section, he presents a 


Nroffinc > 


130. 


solution to the problem of managing globals in large C 
Forth tools ) a 
people tools Pp | srrucrurED PROGRAMMING 140 
by Michael Ham 





Michael talks about people skills for programmers and © 
discusses a solution to the common problem of COME E ORS 
_number from the keyboard. © : 
ARTIFICIAL INTELLIGENCE 
by Ernest R. Tello 
Ernie takes a look at the features of three Shien d. 
extensions to common LISP and proposes a language 
standard based on these features. _ 
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About the Cover 
Neural network programming 
takes the human nervous system 
as its model for program structure. 
Better brains? No, but brainlike 
programs, yes. 
















This Issue 
Our third annual Artificial Intelli- 
gence issue reflects the state of AI 
today. LISP is now common; PRO- 
LOG, which virtually didn’t exist on 
micros in 1985, is everywhere; ex- 
pert systems are just tools; and the 
cutting edge of AI work is the 
learning problem. 

































Next Issue 

For much of its short lifespan 
(about 30 years), computer music 
has been primarily an ivory- 
tower pursuit—if you wanted to 
do serious work in the field of 
computer-generated music you 
looked to the university re- 
search labs. Today, music algo- 
rithms also originate in the 
homes and workshops of people 
like you—people who program 
music applications on comput- 
ers such as the Amiga, Atari ST 
and Macintosh. 

Our May feature article in- 
cludes a brief history of comput- 
ers in music and focuses on some 
recent developments in MIDI 
programming, sampling, tran- 
sient-oriented synthesis meth- 
ods, and programs that compose 
and collaborate on original mu- 
sic. We'll also have an article 
about how to design a software- 
based music recorder using 
MIDI. 


SS bandwidth topic 
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SUPREMACY 


It’s a bold claim. A claim 
we're prepared to stake our 
reputation on. And at 
Computer Innovations, we've 
always taken our reputation 
very seriously. 

It's no industry secret that 
the competitive C Compilers 
are at the end of their 
optimization cycle — they're 
just about as good as they 
are going to get. C86PLUS 
begins where everybody else 
has left off. It’s an entirely 
new technology based on 
artificial intelligence and 
advanced compiler design 
techniques. Designed with the 
serious programmer in mind, 
C86PLUS provides the ultimate 
development environment, 
matching unparalleled 
execution speed with a host 
of productivity features. 


FAST EXECUTION 


e 20% faster than Microsoft C, 
version 4.0 


¢ 70% faster than existing C86, 
version 2.3 
(timings based on the 
classic sieve benchmark) 


ANSI C COMPILER 
FEATURES 


e Register variables 

e Structure assignment 
e Function prototypes 
e New type modifiers 


-near 
-far 
-signed 
-const 
-volatile 

e Long double 80 bit floating- 
point 

e Enumerator data types 
(enums) 


e Extended preprocessor 
capabilities 


FULL CONTROL OVER 
COMPILATION 
ENVIRONMENT 


Small, Medium, and Large 
memory models 

8086/80186 and 80286 code 
generation options 

In-line 8087/80287 floating 
point 

8087/80287 auto detect 
emulator 

Source level debugger support 

Wild-card compilation 

Make utility 

ROMable code 

Linkable with macro 
assembler output 

Intel-standard OMF object files 

Optional assembly language 
output 

Warning level control 


EXTENSIVE FUNCTION 
LIBRARIES FOR 
INCREASED PRODUCTIVITY 











Over 250 library functions 

Full ANSI C library 

Functional equivalents to most 
UNIX System V libraries 

Shared file and network 
support 

Low-level machine access 
functions 

IBM ROM BIOS support 
routines 

Fully compiled small, medium 
and large model libraries 

C library source code 

Run-time start-up source code 

Source code librarian 

Object code librarian 


“-UTER INNOVATIONS 


Ress 


C COMPILER 


SUBSTANTIATED. 


MICROSOFT 
COMPATIBILITY 


If you’re a current Microsoft 
user, we invite you to consider 
this simple point. C86PLUS 
will recompile most applications 
developed using MS-C with- 
out changes to your source 
code. You'll find that your 
application runs much faster. 


PROVEN EXPERIENCE 


In 1981, Computer Innovations 
and its founder, George 
Eberhardt, revolutionized the 
DOS programming world with 
the introduction of the first C 
Compiler for the PC called C86. 
Today, C86 boasts a satisfied 
and loyal user base of over 
20,000 programmers worldwide. 
C86PLUS represents an 
extension of this expertise and 
reputation. It’s backed with 
more than a decade of 
intensive research and develop- 
ment. 


PROVEN SUPPORT 


Making the claim that 
C86PLUS is supreme is one 
thing, standing behind it is 
another. Computer Innovations 
has always offered timely and in- 
telligent technical support, 
and this is an important 
customer service which we do 
not intend to change. 


CALL TO ORDER 


The call is on us. For more 
information or to order call: 


800-922-0169 
or 201-542-5920 (in N)) 


COOGEE. 


COMPUTER 
INNOVATIONS 


980 Shrewsbury Ave. 

Tinton Falls, NJ 07724, USA 
Telex: 705127 COMP INNOV UD 
C86 PLUS is a trademark of Computer Innovations. Inc. 
Microsoft is a registered trademark of Microsoft Corporation 
UNIX is a registered trademark of Bell Laboratories. IBM 
is a registered trademark of International Business Machines 
Corporation 


©1986 Computer Innovations. Inc. 


FORUM 


EDITORIAL 


p remise: Apple did 
several things 


right with the Mac 2. 

First, note that the 
new generation of 32- 
bit personal comput- 
ers will beckon to the 
computer - literate 
masses, not just to pro- 
grammers and power | 
users. As Bob Enyart 
wrote in the January 
27 issue of PC Week, ‘‘the less sophisti- 
cated a user is, the more dependent 
on very high-powered I/O and intel- 
ligent user interfaces he will be.” Per- 
formance will sell well. 

Second, note that performance in 
the next generation machines is rap- 
idly going to become bus-bandwidth- 
bound, particularly if those less-so- 
phisticated users are demanding 
such memory-hungry features as 
high-powered I/O. (Color graphics 
and voice synthesis were among the 
features that Enyart alluded to.) 

Don't. take my word for it: “In the 
next few years, the bus bandwidth to 
the main memory is going to be the 
issue which determines perform- 
ance.’’—Hal Hardenbergh, The Pro- 
grammer’s Journal, September /Octo- 
ber 1986. 

And in terms of the 68020 specifi- 
cally, “memory access time is one of 
the major obstacles to increasing the 
performance of the 68020 beyond 
what it already provides. Although it 
is possible to increase the clock fre- 
quency, the performance benefit, 
unless accompanied by decreased 
system access time, will be of dimin- 
ished value.’’-—Doug MacGregor and 
Jon Rubinstein, IEEE Micro, Decem- 
ber 1985. 

The disk drive data-transfer rate 
will also be critical. It’s already possi- 
ble to see the crippling effect of slow 
drives on fast processors. The Com- 
paq Deskpro 386, which is just a fast 
micro after all, works as well as it 


does partly because it doesn’t have a 
slow disk drive. 








Commercial disk 
drive technology has 
been a five-megabit- 
per-second world, and 
five megs will bore a 
386 or 68K unmerciful- 
ly. Two faster drive in- 
terfaces currently get- 
ting attention are the 
SCSI (Small Computer 
Systems Interface) and 
the ESDI (Enhanced 
Small Disk Interface). SCSI will do up 
to 12 megabits; ESDI will do up to 24 
megabits. SCSI is smart and cheap (a 
very-low cost do-it-yourself SCSI drive 
for the Mac was presented in the Sep- 
tember 1985 issue of DDJ) and is be- 
coming something of a standard. 

In the light of this, consider Apple's 
choices of Nubus and an SCSI disk in- 
terface: an open-architecture, rela- 
tively low-cost, relatively high-band- 
width bus and a relatively low-cost, 
relatively high-bandwidth disk inter- 
face. Power, dare I say, to the people. 

Of course, they left the CPU bur- 
dened with driving the screen. But I 
only said they did some things right. 


= 


Michael Swaine 
editor-in-chief 
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Our thanks to NASA for supplying this computer enhanced ultraviolet photo taken by Skylab IV of a solar prominence reaching out 350,000 miles above the sun’s surface 





Genius Begins With A Great Idea ... 


What follows is the time consuming task of giving 
form and function to the idea. 

That's why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 


Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System ... .$199 
© optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options ¢ Manx Aztec 8086/80x86 macro assembler 
e Aztec overlay linker (large/small model) ¢ source 
level debugger ¢ object librarian ¢ 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System...... $299 
¢ includes all of Aztec C86-p ¢ Unix utilities make, 
diff, grep ¢ vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System. .... $499 
¢ includes all of Aztec C86-d * Source for library rou- 
tines ¢ ROM Support ¢ CP/M-86 support ¢ One year 
of updates. 


Aztec C86 Third Party Software 


A large array of support software is available for 
Aztec C86. Call or write for information. The following 
is a list of the most requested products: Essential 
Graphics ¢ C Essentials ¢ C Utility Library * Green- 
leaf Com. ¢ Greenleaf General ¢ Halo ¢ Panel ¢ PC- 
lint ¢ PforCe ¢ Pre-C * Windows for C ¢ Windows for 
Data C terp ¢ db Vista ¢ Phact ¢ Plink86Plus ¢ C-tree. 


C compiler, 8080/Z80 assembler, linker, librarian, 


UNIX libraries, and specialized utilities. 

Aztec C Il-c (CP/M-80 & ROM)........ $349 
Aztec Cil-d (CP/M-80).............. $199 
Aztec C80 (TRS-80 3&4) ............ $199 














Manx Software Systems 
Circle 108 on reader service card. 1 Industrial Way, Eatontown, NJ 07724 


Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional ...... $199 
A price/feature/performance miracle. System in- 
Cludes: optimized C ¢ 68000/680x0 assembler 
68881 support © overlay linker « UNIX and Amiga 
libraries © examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional...... $199 
* optimized C © 68000/680x0 assembler ¢ 68881 
support * overlay linker ¢ UNIX and Macintosh li- 
braries ¢ examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
Cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


Aztec C65 is the only commercial quality C com- 
piler for the Apple II. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 
braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
¢ runs under ProDOS ® code for ProDOS or DOS 3.3 
Aztec C65-d Developer............. $199 


e runs under DOS 3.3 © code for DOS 3.3 








An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets .............06. $500 
ROM Support Package............. $500 


Call for information on Vax, PDP-11, Sun and other 
host environments. 


These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


CG PANO a ive dle ee ee $75 


Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 


To become a user call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.0O.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


MS is a registered TM of Microsoft, Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd., 
PHACT TM PHACT Assoc., PRE-C, Plink-86, Plink-86 + , P-Force TM Phoenix, db Vista TM Raima Corp., C-terp, PC-lint, TM Gimpel Soft- 
ware, C-tree TM Faircom, Inc., Windows for C, Windows for DATA TM Creative Solutions, Apple Il, Macintosh TM Apple, Inc., TRS-80 TM 
Radio Shack, Amiga TM Commodore Int'l., Unix TM AT&T, Vax TM DEC, Aztec TM Manx Software Systems. 
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RUNNING LIGHT 


ike many of you, 

I’m a_ habitual 
hacker. But, also like 
most of you, I| get 
burned out from time 
to time. When I joined 
DDJ last February, I 
was more than ready 
to stop programming 
for a while. I had just 
finished working on a 
large Macintosh pro- 


ject for a company that promptly 


went out of business. This kind of 
thing happens to freelance program- 
mers once in a while, I fear. You puta 
lot of sweat, time, and craftsmanship 
into a project that ends up never see- 
ing the light of day. And, often as not, 
you end up never seeing the pay- 
check for all that wasted effort ei- 
ther. These are the events that lead to 
programmer burnout, and I had it 
bad. When the opportunity to edit 
DDJ came along, I decided to take a 
break from programming and ex- 
plore the world of magazine editing 
. frankly, I needed a change of 
pace; at DDJ I could talk and write 
about programming and get paid for 
it! An exciting possibility to be sure. 
Now, after almost a year of talking 
about programming and reading 
about other people's programming 
projects, I’m itchy to get back into the 
thick of things again. So, starting next 
month, I'll be stepping aside as editor 
and taking on the role of consulting 
editor. This way I get more time to 
program and still keep my hand in 
around here. (Sometimes you can 
have your cake and eat it too!) You 
will also hear from me from time to 
time in the Right to Assemble 
column. 


In the meantime, this is our annual 
AI issue, with a feature article on a 
program that can be taught to recog- 
nize ASCII characters in graphic form. 
SILOAM represents the beginnings of 
the new field I mentioned recently— 
neural networks. There was a brief 





flurry of interest in 
such networks several 
years back, with the 
invention of various 
simple neural circuits 
that could be simulat- 
ed relatively easily. 
But it amounted to lit- 
tle, partly because of 
limited hardware and 
partly because the 
models were not so- 
ohinienten enough. Now the field is 
heating up again, especially as we 
gain the power to simulate some- 
what larger nets. As is typical of new 
fields, theories abound, and there’s a 
lot of work to be done. We'd like to 
follow the developments closely; if 
you're working in the field, why not 
give us a Call or send a letter? 


In upcoming issues we'll be resur- 
recting the Professional Programmer 
department in our Programmer's 
Services section. The department 
will deal with various topics perti- 
nent to those of you who are making 
your living as programmers—topics 
such as software copyright laws, 
products for producing firmware, 
and how to get your software pub- 
lished. We'll also have interviews- 
with some well-known program- 
mers and hear about their projects 
and their preferred tools for soft- 
ware development. If you have sug- 
gestions about what you'd like to see 
in the Pro Pro department, send a 
note to our assistant editor Levi 
Thomas. You can also reach Levi 
on CompuServe—ID number 
76703,4060. 

Who knows, we may even write 
something about how to avoid pro- 
grammer burnout—if we can find 
someone who knows the trick to 
i. 

It’s been a heck of a lot of fun, folks. 


Stay tuned! 
A iA— 


Nick Turner 
editor 
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The Expanding Mag 

“Once again, we've published our largest 
issue ever! Our expansion is exciting; but at 
the same time, we are conscious that bigger 
is not always better. In this case, however, 
our increase in size will allow us options we 
haven't had in the past. With more editorial 
pages, we have the opportunity to present 
more variety each month, even when we 
run larger pieces, as we have in this issue 
and in the last.’—editorial, Reynold Wig- 
gins, DDJ, August 1983. 














































Predictions in AI 

“The biggest revolution will come in 
terms of software. ‘Actor-based’ languages 
such as Smalltalk will allow programs to 
alter themselves to the user’s wishes. If var- 
ious present-day languages were embed- 
ded in such an actor language, ten strange | 
new customized languages for specific 
purposes could be generated on demand, 
merely by the user having a ‘conversation’ 
with the larger host AI/actor program.’’— 
“5th Generation Computers,” Richard Gri- 
gonis, DDJ, December 1982. 

“So what have the Japanese selected as 
the lingua franca of their AI research? Not 
LISP, but PROLOG, an obscure language de- 
veloped by the French and ‘polished’ by 
the British. PROLOG is the fundamental er- 
ror in the otherwise sound Japanese Fifth 
Generation Project.’’—“And Still More Fifth 
Generation Computers,” Richard Grigonis, 
DDJ, August 1983. 





Ten Years Ago in DDJ 
‘We (the Professional Users Group) are 
not particularly interested in organization- 
al clap-trap but rather in dissemination of 
both hard data and innovative fantasy, re- 
garding technical features of small com- 
puter systems, both hardware and soft- 
ware. As an example of innovative fantasy, 
let me tell you about Dick Maus’s project: to 
regard the game of ‘life’ as a subset of what 
Dick calls ‘Superlife.’ This algorithm will 
treat growth and decline phenomena in 
cell arrays. He sees applications for his sim- 
ulation studies in such diverse fields as auto 
traffic flow, interaction of arrays of busi- 
nesses in a given market, wave phenome- 
na analysis, and nerve impulse transmis- 
sion in neural tissue, just for starters.’’— 
William J. Schenker, M.D., letter to DDJ, April 
1977. 
..and a more-than-usually confused 
potpourri of interesting tidbits.’ —last en-— 
try in table of contents, DDJ, April 1977. 
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An Introduction to Wendin’s 
Operating System Toolbox 


This toolbox gives you a hands-on demonstration of 
how multitasking operating systems work. 


Have you ever spent creative hours 
building things with Tinkertoys or 
an Erector set? Wendin’s Operating 
System Toolbox gives you the same 
hands-on experience with operating 
system architecture that an Erector 
set gives you with mechanical engi- 
neering. You can use the toolbox as 
a development tool to write a cus- 
tom operating system, or as a learn- 
ing aid to discover how multi-— 
tasking operating systems 
work. If you’ve ever wanted 
to build a better DOS, or 
see how big operating sys- 
tems like VAX/ VMS and 
UNIX really work, this 
product is for you. 

The toolbox comes 
with complete source 
code, ready to compile. 
The roughly 15,000 lines 
of source code are librar- 
ied to make the system fit 
on two floppy disks. About 
85% of the system is written 
in C, and the remainder in 
assembly language for speed. The 
package comes with a 300+ page 
manual that describes how to build 
systems with the toolbox, and how 
the kernel works. 


Kernel Architecture 


The basic architecture of the kernel 
was designed around the VAX/VMS 
Operating system. As shown in 
Figure 1, there are three major 
subsystems: the scheduler, memory 
manager, and I/O system. The ker- 
nel’s subsystems communicate 
through common data structures 
which describe processes, memory 
usage, and devices. 

Processes (or tasks ) execute in 
4 different access modes, depending 
on the level of access to system data 
structures they need. USER access 
mode, the least privileged, is where 
application programs execute, to 
keep other users’ data protected. 

























Command Language Interpreter 


System-Wide 
Protected 

Data Structures 
* Page Tables 
* I/O Database 
* Scheduler 
Data 


$GETTIM 


SNUMTIM 


Figure 1. Layered architecture of Wendin’s 
Operating System Toolbox. 


The command language interpreter, 
or user interface, executes in 
SUPERVISOR mode, so that it can 
oversee the execution of user pro- 
grams. The built-in Record Manage- 
ment System (RMS) executes in 
EXECUTIVE mode. Device drivers 
and process control services exe- 
cute in KERNEL mode, the most 
privileged access mode. This allows 
other layers to make calls to a 
device specific layer, thereby making 
them device independent. 


Scheduling 


The toolbox schedules processes 
using the same sophisticated algo- 
rithm that VAX/VMS uses. Ready 


Circle no. 112 on reader service card. 


processes are collected in compu- 
table queues according to their 
current priority (0-31). Waiting pro- 
cesses are collected in other queues 
depending on their state (hiber- 
nating, suspended, waiting for I/O 
to complete, and so forth). A pro- 
cess’ priority may be temporarily 
elevated so that it will be more 
likely to execute first when it is 
done waiting. For example, 
when a process is waiting for 
keyboard input, it remains 
in LEF (an I/O wait state) 
until the read has com- 
pleted. When the read 
completes, the process 
priority is elevated to 
make response time 
quick. 

Processes are moved 
by the scheduler from 
state to state according to 

the diagram shown in 
Figure 2. New processes 
enter the system via a CREPRC 
(create process) system call, 
and are immediately placed on a 
computable queue. Processes leave 
the system when deleted by a 
DELPRC (delete process) system 
call, which automatically makes the 
process current before deleting it. 
This means that there is only one 
path in or out of the system. 

To select the next current pro- 
cess, the scheduler scans the com- 
putable queues for the highest pri- 
ority process, and removes it from 
its queue. The process is then 
placed in the CUR state, and is 
executed. When a system event 
such as a timer tick or keypress 
occurs, the current process is placed 
back on a computable queue, and 
the event is serviced by some kernel 
component. After servicing the 
event, the scheduler finds another 
computable process to run. 

When a process requests to be 
placed in a wait state such as 
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Software Gap 
Dear DDJ, 

I'm responding to the two “name 
witheld” letters in the January 1986 
issue. 

To the person whose managers 
have business backgrounds and don’t 
understand software: I’d say turn- 
about is fair play. You know software 
and have strongly held standards— 
witness your letter and your DDJ sub- 
scription. You were interviewed for 
your current job and were deemed 
acceptable. In an interview, you have 
rights, too. Interview the person in- 
terviewing you. No need to be overly 
aggressive about it—there’s always a 
line to walk—but see if you have 
common ground. Without 
that common ground, you're 
going to be unhappy. A good 
manager will recognize this, 
and you don’t want to work 
for a bad one. 

To the person concerned 
about sloppy code: You men- 
tioned “it is sometimes diffi- 
cult to determine when to 
stop coding and start stub- 
bing.’’ True enough, unless 
you have a plan. Let me sug- 
gest one. I like to add code toa 
running program. It’s more 
enjoyable because the feed- 
back is right there—it shows 
on the screen, the device runs, 
whatever. Debugging is sim- 
pler—you can see. Feedback 
is the crucial element in 
debugging. 

So my suggestion: Write the 
main routine and enough I/O 
to get some feedback. Stub ev- 
erything else. Get that run- 
ning. So it’s too easy /simple— 
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who cares? You have a place to stand, 
and the CPU is your lever. Now add 
code that makes the program do 
something simple. Then something 
else. Keep that feedback there. Other- 
wise the job can become work. 

I think it’s neat that I can go some- 
where five days a week to have fun 
and actually get paid for it. 

Joe Osgood 

14930 Hartland St. 

Van Nuys, CA 91405 


More Searching for a Sine 
Dear DDJ, 

Richard A. Campbell’s use of a Tay- 
lor’s series approximation for the 
sine [‘‘In Search of a Sine,’ December 
1986] is the wrong approach to the 
problem. The question that should be 
asked is “What is the best finite poly- 
nomial approximation to a given 
function?” The answers have long 
been known and are to be found in 
the area of Chebyshev polynomials; 
Mainframe programmers have done 
a considerable amount of research 
on this topic. Approximations for Dig- 
ital Computers by Cecil H. Hastings et 
al. (Princeton University Press, 1955) 
lists the sine function as well as a 
wide variety of common and esoteric 
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“Okay—I understand that it can see the difference 
between a cat and a dog—but does it know if their 
intentions are hostile?” 





functions as part of a research study 
by the RAND Corp. 

If you consider a poynomial ap- 
proximation of three terms for the 
sine, the values of C1 = 1.5706268, C2 
= —0.6432292,and C3 = 0.0727102 
are derived from approximating the- 
ory, whereas Campbell’s Taylor’s se- 
ries coefficients are C1 = 1.570795, C2 
= —0.645921, and C3 = 0.07948765. 
For a polynomial approximation of 
four terms, the coefficients are the 
same for the approximating theory 
and the finite Taylor’s series 
expansion. 

Hopefully this will help Campbell 
and others in their investigations in 
this area. Too many implementations 
of computer languages ignore the 
vast amount of work that has gone 
before. The implementation of the 
sine and other well-known functions 
points this out. 

I should also point out that Radio 
Shack offers a BASIC program that 
yields 15-digit accuracy on a 4K ma- 
chine for a wide variety of functions 
(Level II Double-Precision Subroutine 
Program, catalog number 26-1704). 

Douglas Ingalls 

Ithaca College 

Ithaca, New York 14850 


Dear DDJ, 7 

In December 1986 you ran an 
article in which Richard 
Campbell recounted his diffi- 
culty in locating a suitable ap- 
proximation for the sine 
function. 

Maybe I can make his day. I 
faced a similar problem a few 
years ago, and in my searches 
I came across a book that con- 
sists almost entirely of ap- 
proximations—polynomial 
approximations, recursive ap- 
proximations (!), infinite se- 
ries, and infinite products— 
not to mention all the useful 
identities, integrals, and de- 
rivatives thereof. Would you 
believe a trig table with values 
for the sine and cosine func- 
tions to 23 significant places? 
(Great for checking up on that 
library approximation you're 
using!) And more. 

I'm talking about the Hand- 
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Process 
leaves 
the system 


Process enters 
the system 


Figure 2. Scheduling paths and process states. 


HIBernate or SUSPend, or if it re- 
quests a system resource that is not 
currently available such as a waited 
I/O or a DOS service, it is moved 
from the CUR state to the appro- 
priate waiting queue (LEF, HIB, 
SUSP, or WDOS) until the resource 
becomes available. Once the re- 
source is made available, the pro- 
cess is moved from its wait state to 
a computable queue, where it may 
be selected by the scheduler. In the 
case of HIB and SUSP, the process 
will wait until another process 
makes it computable with a WAKE 
or RESUME system call. A process 
can also wake itself up with a sched- 
uled wakeup by calling the SCHDWK 
system call. 


Memory management 

The memory manager keeps track 
of available memory in 512-byte 
chunks called pages just like VAX/ 
VMS. It uses a table of page descrip- 


tors to keep track of which pro- 
cesses own the individual pages, 
and which access mode they were 
allocated in. Pages can be assigned 
to a specific process through the 
CRETVA (create virtual address ) 
system call, and returned to the 
system with the DELTVA (delete 
virtual address) system call. Pages 
can also be allocated for global use 
and assigned a name so that pro- 
cesses can share data in memory. A 
process that wants to allocate 
memory to share with other pro- 
cesses calls the CREGBL (create 
global memory block) system call. 
Other processes can then access 
the global memory block by name 
using the ACCGBL (access global 
memory block) system service. 
When a global memory block is no 
longer needed, it may be returned 
to the system with a DELGBL 
(delete global memory block) sys- 
tem call. 
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Input/Output System 


The I/O system handles all process 
requests for interaction with hard- 
ware and software devices. Hard- 
ware devices represent actual hard- 
ware, such as disks, terminals, and 
printers. Software devices include 
mailboxes (memory-resident data 
pipes) and the null device (bit 
bucket). I/O is supported through 
two levels of organization: device- 
specific (QIO) and device-indepen- 
dent (RMS). QIO device drivers 
deal directly with the physical pro- 
perties of the device (for example, 
track size on a disk, or baud rate for 
a terminal). The RMS (Record Man- 
agement System) level supports 
device-independent system calls 
which call the QIO level to do the 
work. This means that RMS isn’t 
responsible for knowing about the 
specific characteristics of a device. 


The User Interface 


The final and most important com- 
ponent of an operating system built 
with the toolbox is the user inter- 
face. This C function is called by the 
kernel whenever it makes a new 
process. It is up to the designer to 
determine what a process should 
do. For example, some processes 
should read commands from their 
standard input device. Others should 
just run a program and leave the 
system. The user interface can be as 
simple as the MS-DOS interface or 
as sophisticated as the Macintosh 
windowing environment. As a de- 
velopment kit, it’s powerful. 

As a learning aid, it’s fascinating. 
Wendin’s Operating System Toolbox 
is an in-depth tour of an interesting 
field that simply can’t be passed up 
for the price. 

Minimum system requirements 
include an IBM PC/XT, AT, or true 
compatible with at least 256K run- 
ning MS-DOS or PC-DOS. 


ee 
Operating System 
Toolbox: $99 
Wendin, Inc. 

PO. Box 3888 
Spokane, WA 99220 
(509) 624-8088 


LETTERS 


(continued from page 10) 


book of Mathematical Functions, edit- 
ed by Milton Abromowitz and Irene 
A. Stegun, New York: Dover, 1965, 
originally published by the National 
Bureau of Standards of all people. Af- 
ter looking at dozens and dozens of 
mathematics and computer hand- 
books, searching in vain for an ap- 
proximation of the gamma function, 
I finally came across this gem and 
had a rapturous religious experience 
on the spot. Now my copy resides 
next to Knuth, K & R, and other sa- 
cred writings of computer lore. I 
don’t know how many times it has 
saved my derriére. 

Your local college library almost 
certainly has a copy—go take a look, 
and see if it isn’t everything I say it is. 

William Zeitler 

9 Pajaro Way 

Salinas, CA 93901 


Feedback 

Dear DDJ, 

You asked for input in the January 
issue, so here it is. First the complaint. 
At the bottom of page 16, you state: 
‘“‘you can move up from the 68008, 
which is roughly comparable to a 
fast Z80 in power.” That is a gross 
misrepresentation—the 68008 is 
about four times faster than the 6809, 
and the 6809 runs rings around the 
Z80 (see the benchmarks published in 
Interface Age, April 1983). I agree that 
there have been several poor imple- 
mentations of the 68008 (Hazelwood) 
that ran very slowly; however, a 
good hardware design (Peripheral 
Technology) will really fly. 

In some instances the 68008 is fast- 
er than the 68000. A hard-disk driver 
where the sector buffer must be read 
and placed in memory is one such in- 
stance (see Example 1, right). 

In the Right to Assemble column, 
the numbers project is super, and I 
am sure it will fill a large void in com- 
puter science literature. I wrote a 56- 
digit calculator for the 6809 in assem- 
bly language, and I could not find 
much help in any magazines or 
books. I had the same decision to 
make on the transcendental func- 
tions. The precision on the polynomi- 
al approximation was at the most 10 
digits and I needed 56, so I had to use 
the series expansion. The arctan se- 
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ries would not converge around 1.5, 
so I devised a simple solution—I ap- 
plied the half-angle formula three 
times and then multiplied the results 
by 8. This was so successful that I 
needed only 24 elements in the series 
for 56 digits of accuracy. 

If I may brag a little, my CALC56 
program calculates Pi (4*ATN(1)) in 14 
seconds, accurate to 55 places. I need- 
ed four expansion series (sine, expo- 
nent of e, natural log, and arctan) in 
my calculator; all other functions 
could be derived from them. The 
source code is in 6809 assembly lan- 
guage and could easily be transport- 
ed to the 68000. If you want to see this 
code, I would be willing to share. It 
would also be very interesting to see 


In 68000 code you would 


if you have better algorithms than I 
have. If you need any constants cal- 
culated to high accuracy, just let me 
know. 

Dan Farnsworth 

3646 Lantana Rd. 

Lantana, FL 33462-2299 
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MOVE.W #255,D1 ‘counter 
LEA DCA,AO DC addr 
LOOP MOVE.B (A0O),(A1)+ move byte 
DBF D1,LOOP 


RTS 


ae the 68008 you make the hardware so che tn di: 
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 ioop 





MOVEQ1.L 463, D1 counter 

_ LEA DCA ,A0 DC addr _ 

| LOOP MOVE.L i y, move long 
DBF Dt, LOOP loop 26—~—“‘“i:~C~C—C—S~S 


| If memory is available you can do this: 





‘MOVE.L (AO), dase 
MOVE.L (AO),(A1)+ 
t 


* 


! 
i 


MOVE.L (AO),(A1)+ 


DC addr 
move long 
move long 







64 2 byte  -. 
instructions AO 





Example 1: Sometimes the 68008 is faster than the 68000. 
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C Programmers! 
db_VISTA: high-speed Database 
written exclusively for C 
NOW offers SQL-based Query 


‘“db_ VISTA™ has proved to be an all-round high performer in terms of fast execution. ..’’ 
John Adelus, Hewlett-Packard Ltd./Office Productivity Division 


a igh-speed data retrieval and access... 

just two benefits of using RAIMA’s network 
model DBMS, db_ VISTA. Combine these 
benefits with those of C—speed, 
portability, efficiency, and you begin to 
understand db__VISTA’s real measure... 
performance. 


db_QUERY : new simplicity 
retains performance! 


db__ QUERY, our new C-linkable, SQL- 
based, ad-hoc query and report writing 
facility ... provides a simple, relational view 
of db__VISTA’s complex network database. 
No longer will you give up performance for 
simplicity ... combine db_ QUERY with 
db_ VISTA... you have both! 


Independent Benchmark proves 
High-Speed model 2.76 times faster 


An independent developer bench- 
marked db_ VISTA against a leading 
competitor. Eleven key retrieval tests were 
executed with sequentially and randomly 


Royalty-Free Run-Time 


Whether you're developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA or db__ QUERY is the 
same. If you are currently paying royalties 
for a competitor’s database, consider 
switching to db__VISTA and say goodbye to 
royalties. 


FREE Technical Support 
For 60 days 
Raima’s software includes free telephone 
support and software updates for 60 days. 
Technical support personnel are available 
to answer questions about our software or 
yours. 


30-Day Money-Back Guarantee 


Try db_ VISTA for 30 days and if not fully 
satisfied, return it for a full refund. 


Price Schedule 
db_VISTA db_ QUERY 


db_VISTA Version 2.2 


Features 

¢ Multi-user support allows flexibility 
to run on local area networks 

¢ File structure is based on the B-tree 
indexing method and the network 
database model 

¢ Run-time size, variable—will run in 
as little as 64K, recommended RAM 
size is 256K 

¢ Transaction processing assures 
multi-user database consistency 

¢ File locking support provides read 
and write locks on shared databases 

¢ SQL-based db__ QUERY is linkable 

¢ File transfer utilities included for 
ASCII, dBASE optional 

¢ Royalty-free run-time distribution. 

¢ Source code available. 


Database Record and File Sizes 
¢ Maximum record length limited only 
by accessible RAM 


created key files. : Ea seers Sane : Ge : et ¢ Maximum records per file is 16,777,215 
*Result of 11 Key Retrieval Tests [] Multi-user $ 495 $ 495 ; ee pe ie Der OL ees OF et 
db_ VISTA 671.24 seconds |! Multi-user w/Source $ 990 $ 990 ¢ Maximum file size limited only by 
Leading Competitor :1,856.43seconds _ NEW: ~ available disk storage 
— VAX Multi-user $ 990 $ 990 ¢ Maximum of 255 index and data files 
db_VISTA’s high-speed network database  — VAX Multi-user w/Source $1980 $1980 


model lets you precisely define relation- 
ships to minimize redundant data. Only 
those functions necessary for operation are 
incorporated into the run-time program. 


Application Portability 
Complete Source Code 


For maximum application portability, 
every line of db__VISTA’s code is written in 
C and complete source code is available. 
db_ VISTA operates on most popular 
computers and operating systems. So 
whether you write applications for micros, 
minis, or mainframes...db_ VISTA is for 
you. 


How db_ VISTA works... 


Design your database and compile your 
schema file with the database definition 
language processor. Develop application 
programs, making calls to db_VISTA’s C 
functions. Edit and review your database 
using the Interactive Database Access 
utility. Compile and link your C program 
with the db_ VISTA run-time library, and 
your application is ready to run. 


Multi-user and LAN capability 


Information often needs to be shared. 
db_ VISTA has multi-user capability and 
supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX, MS-DOS, and 
VAX VMS. 


RAIMA’ 


CORPORATION 


High-Speed Programming Tools, 
Designed for Portability 


Call Toll-Free Today! 
1 (800) db-RAIMA 
(that’s 1-800-327-2462) 

---OR Call 1-206-828-4636 
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MasterCard 





Read what others say... 


“If you are looking for a sophisticated C 
programmer’s database, db_ VISTA is it. It 
lets you easily build complex databases 
with many interconnected record types. 
Raima’s customer support and documen- 
tation is excellent. Source code availability 
and a royalty-free run-time is a big plus.” 

Dave Schmitt, President 
Lattice, Inc. 


‘‘My team has developed a sophisticated 
PC-based electronic mail application for 
resale to HP customers. db_VISTA has 
proved to be an all-round high performer 
in terms of fast execution, flexibility and 
portability, and has undoubtedly saved us 
much time and development effort?’ 
John Adelus, Hewlett-Packard Ltd. 
Office Productivity Division 
‘‘On the whole, I have found db_ VISTA 
easy to use, very fast with a key find, and 
powerful enough for any DBMS use I can 
imagine on a microcomputer:’ 


Michael Wilson, Computer Language 


Keys and Sets 

¢ Key length maximum 246 bytes 

¢ No limit on maximum number of key 
fields per record—any or all fields 
may be keys with the option of 
making each key unique or duplicate 

¢ No limit on maximum number of 
fields per record, sets per database, or 
sort fields per set 

¢ No limit on maximum number of 
member record types per set 


Operating System 
& Compiler Support 

¢ Operating systems: MS-DOS, PC- 
DOS, UNIX, XENIX, SCO XENIX, 
UNOS, ULTRIX, VMS 

¢ Ccompilers: Lattice, Microsoft, IBM, 
DeSmet, Aztec, Computer Innova- 
tions, XENIX and UNIX 


Utilities 
¢ Database definition language processor 
¢ Interactive database access utility 
¢ Database consistency check utility 
¢ Database initialization utility 
¢ Multi-user file locks clear utility 
¢ Key file build utility 
¢ Data field alignment check utility 
¢ Database dictionary print utility 
¢ Key file dump utility 
¢ ASCII file import and export utility 





*The benchmark procedure was adapted from 
‘‘Benchmarking Database Systems: A Systematic 
Approach” by Bitton, DeWitt and Turbyfill, 
December 1983. 


Call Toll-Free Today! 
1 (800) db-RAIMA 


(that’s 1-800-327-2462) 
3055-112th Avenue N.E. © Bellevue, WA 98004 USA (206) 828-4636 Telex: 6503018237 MCI UW 
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Education and 

Programming 

There is a popular misconception 
(popular among educators and lay- 
men alike) that programming and 
mathematics are somehow related. 
As a consequence an undue amount 
of math is forced down the gullets of 
unwilling undergraduates in every 
computer science program in the 
country. I feel that not only is this 
needless torture but it also can be 
counterproductive. 

To my mind, a good, traditional, 
liberal-arts education—one that in- 
cludes a little math but that also in- 
cludes things such as English compo- 
sition, history, and Latin—is better 
preparation for a programming Ca- 
reer than a math- or science-oriented 
education. Many of the worst pro- 
grams I've seen have been written by 
mathematicians and physicists and 
some of the best have been written 
by people with degrees in English 
and Russian Literature. How is this 
possible if programming is as 
grounded in math as some would 


by Allen Holub 





have us believe? More to the point, 
many potentially excellent program- 
mers are forced out of computer sci- 
ence programs every year because 
they don't have an aptitude for math- 
ematics. The other side of the prob- 
lem is that many programmers who 
do graduate are not fully in touch 
with the world around them because 
of the unwarranted dominance of 
technical training to the detriment of 
nontechnical but equally valuable 
kinds of knowledge. 

Before continuing, I need to clarify 
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my terms. There’s a difference be- 
tween programming and computer 
science, between the writing of pro- 
grams and the study of them. Com- 
puter science has a great deal to do 
with mathematics; programming 
does not. I’m also differentiating be- 
tween engineering and program- 
ming. You obviously need to under- 
stand mathematics to write a 
program that does mathematical 
things. 

On the other hand, the creation of a 
computer program, regardless of the 
function of that program, is a differ- 
ent process from designing the math- 
related algorithms that the program 
implements. In any event, most pro- 
grams don't implement mathematical 
algorithms, and if they do, the algo- 
rithms are often designed by someone 
other than the programmer. How 
much calculus is there in a word pro- 
cessor or a database application? 

The skills you need to solve a math 
problem are virtually useless when it 
comes to writing a program. At the 
undergraduate level, at least, you 
solve a math problem by repetitively 
applying a set of memorized rules to 
an equation until one or more of 
those rules does something useful. If 
you tried to write a program this 
way, youd never get beyond the 
main( ) module. On the other hand, 
the process of writing an essay is al- 
most identical to that of writing a 
program. You start both with an out- 
line of some sort (what is a structure 
chart or a Warnier-Orr diagram if not 
an outline?), you have to organize 
both in the same way (a topic para- 
graph is a main( ) subroutine, the 
routines that main( ) calls are sections 
in the essay, and so forth), and the 
stepwise refinement of a program 
mirrors the development of an idea 
within an essay. 

The study of a language, especially 
a classical language such as Latin, is 
also useful to programmers. It’s not 
the Latin itself that’s important— 
though a knowledge of Latin certain- 
ly does help improve your English— 
but rather it’s the tools that you need 
to learn Latin that are important. You 
are really teaching yourself how to 
understand a large and complex sys- 
tem, and once you’ve understood 


how to learn the language, you can 
apply these same techniques to any 
complex system, such as a computer 
program. 

These problems can be solved, to 
some extent, by arestructuring of the 
educational process. I’m arguing 
here, not for the restructuring of 
computer science programs as such, 
but rather for the creation of a new 
academic discipline entirely—one 
that’s concerned primarily with pro- 
gramming. A little math is obviously 
required—basic algebra, a little Bool- 
ean and linear algebra, some set the- 
ory, and (a very little) calculus are all 
that’s needed, however. These topics 
could be covered quite adequately in 
a well-designed one-semester course, 
and as I said earlier, a little math is 
just as much a part of a liberal-arts 
education as is English. If students 
were required to take a full year of 
English composition rather than cal- 
culus, not only would we have bet- 
ter-written programs, but we'd have 
readable documentation for them as 
well. The study of computer science 
as such could then be moved to the 
graduate level, as is fitting for an es- 
sentially academic discipline. A good 
parallel is the way that you'd earn a 
medical degree—a bachelor’s degree 
in a related but more general field is 
required before you can enter a grad- 
uate-level M.D. program. Similarly, a 
degree in programming would be a 
prerequisite for a degree in comput- 
er science. 

In the long run this sort of restruc- 
turing would give us both better pro- 
grammers and better computer 
scientists. 
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Announcing an end to obsolescence. 
Orchid Technology’s Jet 386™ accel- 
erator card extends the life of your 
computer investment into the 1990s— 
it puts power in your AT that you 
won't outgrow. 


hree Times Faster 
than an AT 


It’s up to three times faster than an 

AT depending on the application, and 
speed is just one benefit. Unequalled 
compatibility and provisions for 
upcoming 386 software mean your 

Jet 386 will handle whatever the future 
has in store: CAD, spreadsheets, 
networking... 


Jet 386, PCturbo 286e and TinyTurbo 286 are trademarks of Orchid Technology. All other products named are 


trademarks of their manufacturers. 


RCHID'SS JET 386: 
POWER FOR THE FUTURE 


et 386 is the Ultimate Accelerator Upgrade for Your AT 





asy Upgrade 


Easy to use, there’s nothing new 
to learn and no new programs to buy. 
At 25% of the cost of buying a new 386 
PC, it’s easy on your pocketbook, too. 


Norton SI 


rom the People 
Who Started It All 


Orchid combined 80386 power with 
the technology perfected for the XT in 
the TinyTurbo and PCturbo 286e. Like 
these critically acclaimed accelerators, 
Jet 386 is built for lasting value. 





IBMXT IBMAT JET 386 


Call Orchid to find out how you can 
experience the future today. And ask 
how Orchid can modernize your fo NF OU TT 
whole office with turbos, graphics, WIN UL 
networking, and multifunction Innovative Add-Ons 
products. 45365 Northport Loop West 


Fremont, CA 94538 
415/490-8586 Tlx: 709289 
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ARTICLES 








An Artificial 
Neural Network 
Experiment 








by Robert Jay Brown 


his article describes 
Ty an experimental 
computer program 
that could serve as one com- 
ponent of a computer vision 
system. The program simu- 
lates an artificial neural net- 
work and acts as a learning 
machine. It’s implemented 
as a committee network of threshold logic units that func- 
tions as a trainable pattern recognizer for visual images 
composed of a rectangular array of pixels. Each pixel con- 
tains a single number representing the gray-scale value of 
that region of the field of view. 
A robot vision system consists of many components: 


e image capture, in which the image is converted from 
light or other radiation to an analog electrical signal 

e image digitization and signal processing, in which the 
image is divided into a set of picture elements, or pixels, 
each of which is assigned a value representing the bright- 
ness and/or color of that part of the image 

e region, edge, and boundary detection, in which the dis- 
tinct visual elements of the image are separated 

¢ image scaling and alignment, in which the digitized im- 
age is rotated, translated, and otherwise transformed to 
place it into some standard position and size 

* image recognition, in which the preprocessed image is 
submitted to a pattern recognition algorithm to allow the 
machine to recognize what the image represents. 


This article is about image recognition. 





Robert Jay Brown, 5225 N.W. Ct., Margate, FL 33063. Robert 
is a graduate student at Florida Atlantic University. He is 
currently a consultant involved in designing electronic sur- 
veillance intercept and cryptography systems. 
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This program 
acts as 


a 


learning machine. 





Neurophysiology 

SILOAM (simple image learn- 
ing on adaptive machinery) 
operates by modeling one 
possible organization of the 
actual neural structure of 
the brain on a computer. 
Consider a single nerve cell 
(see Figure 1, page 18). Dur- 
ing World War II, a physiologist and a mathematician 
worked together to try to create a model of the brain 


‘based on anatomical and physiological experimental 


findings. The team of McCulloch and Pitts started by mod- 
eling the single nerve cell, or neuron. Their model is 
known today as the McCulloch-Pitts neuron and is depict- 
ed in Figure 2, page 18. 

Microscopic studies reveal that the nerve cell is com- 
posed of a cell body, or cyton; many input fibers, or den- 
drites; and a single output fiber, or axon, which branches 
to send signals to the dendrites of other nerve cells. Physio- 
logical studies in which scientists selectively stimulate sets 
of dendrites while observing the axon yield the following 
result: some dendrites tend to cause the neuron to produce 
an output (the neuron ‘“‘fires’’), and other dendrites tend to 
prevent the neuron from firing. The dendrites that en- 
courage firing are called ‘“‘excitory” inputs, and those that 
discourage firing are called “inhibitory” inputs. 

The cell either fires or does not fire. There is no specific 
tie between which inhibitory input cancels an excitory 
input. Each input has a ‘weighting factor” associated with 
it: excitory inputs have a positive weight, and inhibitory 
inputs have a negative weight. The neuron combines all 
these inputs (probably within the cyton) to produce the 
output. Thus it appears that the neuron adds up all the 
weights associated with inputs that are stimulated, and if 
the result exceeds a certain threshold, then the neuron 
fires. 
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Threshold Logic 
This model of a neuron (Figure 3, page 18) is called a 
threshold logic unit (TLU). It is not difficult to construct a 
TLU out of readily available hardware components: a 
Schmidt trigger connected in series after an operational 
amplifier wired to operate as an analog summer will suf- 
fice (see Figure 4, page 19). The weights are the gains de- 
termined by the proportionality factors of the scaling re- 
sistors at the plus or minus inputs to the op-amp. 
Adjustable weights can be realized by using potentiome- 
ters with the wiper connected to the stimulus input, with 
one end of the resistance element connected to the plus 
input of the op-amp and the other end connected to the 
minus input. I chose to simulate the operation of a TLU 
with software. It’s cheaper, and as you shall see, it allows 
the program to adjust its own weighting factors, which is 
necessary if the TLU is to be trained automatically rather 
than “tweaked” into alignment by a skilled technician. 

The TLU is the physical embodiment of a linear equa- 
tion formed by setting an inner product, or metric (mea- 
sure of distance), to 0. The solution set for the equation 
thus formed defines a cleaving plane that acts as the 
boundary between two half-spaces in the weight space of 
all possible weight sets that could make up the weights 
for the input of a TLU. The cleaving planes, being the 
solution to a homogeneous linear equation, must pass 
through the origin. When the equality is changed to an 
inequality, the sign of the inequality indicates on which 
side of the cleaving plane the weight point lies. 

SILOAM contains many TLUs. Each has as many inputs 
as there are pixels in the graphical array that is being 
examined by the network. In addition, each TLU has an 
additional input that is always excited. This extra input 
provides a “reference point’, or “bias’’ (analogous to the 
DC component of a Fourier series), to set the threshold 
that determines the firing point of the TLU. This input is 
necessary to homogenize the linear equation formed by 


Dr. Dobb’s Jourrel, April 1987 


the inner product used to compute the metric. Without it, 
an input of all 0s would be degenerate and the training 
algorithm would fail to converge. 


Pattern-Space Geometry 

The task of computing the output of a TLU is performed 
by the vector operation of taking the ‘‘dot product” of the 
stimulus vector and the weight vector associated with the 
TLU. The sign of the result determines the output: a posi- 
tive sign means the nerve has fired; a negative sign means 
it hasn’t. Each weight vector can be interpreted as a point 
in hyperspace, or weight space. If you look at the dot 
product formed between the input pattern vector and 
the TLU weight vector, you see that, if the elements of the 
pattern vector are viewed as constants and the weight 
vector elements are viewed as variables, then if the dot 
product is set equal to 0, this dot product forms a linear 
homogeneous equation. The situation in 3-space is: 


ax+by+cz = 0. 


A, b, and c are the components of the weight vector, and x, 
y, and z are the components of the pattern to be recog- 
nized. Remember that z is set to a constant value of 1. The 
solution set defines a plane that passes through the origin 
(see Figure 5, page 19). The plane forms a pattern surface 
that cleaves weight space into two half-spaces: this places 
one set of possible TLU weights on one side of the pattern 
plane and one set on the other side. Any given weight 
point will be on either the negative or the positive side of 
the pattern plane. (The two’s complement arithmetic of 
the computer makes it convenient to consider a point lying 
on the plane itself to be on the positive side of the plane.) 
The absolute value of the dot product is proportional to 
the perpendicular distance from the weight point to the 
pattern plane. Thus a given pattern hyperplane divides 
weight hyperspace into two half-hyperspaces. The dot 
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NEURAL NETWORK 
(continued from page 17) 


product of the pattern vector with the weight point re- 
turns the distance from the weight point to the pattern 
plane. The weight points are defined by the weights for 
each of the inputs to the TLU; the coordinates of the 
weight point are just the values of the weights for the TLU. 

By this convention, you can visualize each TLU as being 
represented by a point in this weight space. The dot prod- 
uct of the weight point with the augmented pattern vec- 
tor is the perpendicular distance from the weight point to 
the pattern plane. If this quantity is positive, then the TLU 
‘recognizes’ the pattern; if it is negative, then the TLU 
does not recognize the pattern. 

The TLU is a pattern dichotomizer: its corresponding 
weight point in weight space is on the positive side of 
some pattern hyperplanes and on the negative side of 
others. Thus it divides all pattern planes in weight space 
into two classes, or sets: those it is on the positive side of, 
which it recognizes, and those it is on the negative side of, 
which it does not recognize. 


Artificial Neural Networks 
Now, how about more difficult cases, in which a simple 


Nucleus 
Dendrites 


Figure 1: A nerve cell, or neuron 


Excitory inputs 


Inhibitory inputs 





Figure 2: McCulloch-Pitts neuron 
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linear function cannot separate the categories? I will first 
explore a yes/no decision from a single network and will 


use one possible network of TLUs, called the committee — 


network (see Figure 6, page 19). The committee network 
is a type of layered machine. A committee of TLUs is com- 
posed of an odd number of TLUs, each presented with the 
same input pattern vector. Each TLU in the committee 
decides whether the pattern is one that it recognizes, and 
it casts a vote accordingly. A chairman TLU then counts 
the votes. The chairman’s inputs are the outputs of the 
committee members. Its weights are fixed at 1 for all its 
inputs, so it simply functions as a vote counter for the rest 
of the committee. By training multiple networks inde- 
pendently, you can increase the number of recognizable 
classes to any power of 2, as shown in Figure 7, page 20. 
I have developed a democratic machine: how can such 
a thing work? I'll now show how a democratic committee 
with a majority-rule voting system can make a substantial 
improvement to my pattern recognizer. The divisions 
formed by each of the TLUs in the committee can occur at 
different places. Through proper training (which I'll de- 
scribe later), the voting TLUs in the committee can be 
made to form point clusters in weight space such that a 
majority of TLU weight points will always be on the prop- 
er side of every presented pattern hyperplane. Thus you 
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Threshold Detector 





Figure 3: The threshold logic unit 
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Schmidt Trigger 





Figure 4: Simplified hardware implementation of a threshold logic unit with adjustable weights 










Pattern plane 
O=ax+by+cz_ 


a 


Dot product: 
0= <a,b,c> <x,y,z> 


Expanded: 
Q0=ax+by+cz 


Passes through origin 
Positive side 


Patern input 


Vote-taking 
TLU 


Decision 
output 


a 
All weights 


equal 1 





Figure 6: A committee network of threshold logic units 
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NEURAL NETWORK 
(continued from page 18) 


can select the weight points such that a majority of TLUs 
will vote yes, and this defines the set of patterns that the 
committee as a whole will recognize. 

To train such a committee, you present it with a pattern 
vector and observe the result. If the committee returns 
the correct answer, you present another pattern; if not, 
you must correct it. You do this by adjusting the weights 
to produce a more favorable vote (somewhat equivalent 
to lobbying in legislative processes, where the TLU plays 
the part of the politician). This does not ensure that the 
correct decision will be obtained the next time the com- 
mittee sees this pattern, but the vote will be closer. Be- 
cause you insist on an odd number of TLUs in a committee 
(exclusive of the chairman), you can never have a tie. 
What you do is convert one TLU at a time to a more “‘en- 
lightened” view. By repeating this process enough, the 
committee will return a favorable decision. When this 
occurs, you say that the network has been trained to rec- 
ognize the pattern. 


The Training Algorithm 

How do you go about finding the correct TLU to adjust, 
and how do you perform the adjustment? You pick the 
TLU that voted incorrectly and that was the least sure of 
its vote. This means that you pick the TLU that had the 
wrong sign for its dot product and that had a dot-product 
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Figure 7: An image learning system to classify 2" patterns 
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magnitude that was the least of all TLUs with the wrong 
sign. This corresponds to selecting the weight point clos- 
est to the pattern hyperplane and on the wrong side of it. 
Now you know which TLU to work on, but how do you 
adjust the weights to produce the desired effect? You 
move the weight point for the selected TLU along the per- 
pendicular from the weight point to the pattern hyper- 
plane toward the pattern hyperplane and through to the 
other side of the pattern hyperplane, thereby changing 
the TLU’s classification of the pattern. 

You actually move the weight point by an amount deter- 
mined by a constant—the correction fraction—times the 
distance from the weight point to the pattern hyperplane. 
This constant must lie between 1 and 2 for the training 
algorithm to converge. If it is greater than 1, then the 
weight point will move to the other side of the pattern 
hyperplane; if it is less than 1, then the weight point will 
move toward the pattern hyperplane but not through it. 
In this case, the training algorithm will not converge and 
training will never be accomplished because the weight 
point will always be on the wrong side of the pattern 
plane even though it gets constantly closer to it. This tech- 
nique is called fractional correction. If the distance moved 
is the least integer such that the pattern plane will be | 
crossed, this choice results in a training strategy known as 
absolute correction. The simplest technique is constant 
correction, in which a constant distance is always moved. 
Such strategies allow for the use of integer arithmetic re- 
sulting in faster execution and simpler hardware. 
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New Turbo Prolog and 


Turbo Pascal Toolboxes 
_ add more Power 








Toolbox 


Our new Turbo Prolog Toolbox” 
enhances Turbo Prolog—with more than 
80 tools and over 8,000 lines of source 
code that can easily be incorporated into 
your programs. It includes about 40 
example programs that show you how 
to use your new tools. 


N: w! Turbo Prolog 
| 


It's the complete developer's toolbox 
and a major addition to Turbo Prolog. You 
get a wide variety of menus—pull-down, 
pop-up, line, tree and box—so you can 
choose the one that suits your application 
best. You'll quickly and easily learn how 
to produce graphics; set up communica- 
tions with remote devices; read information 
from Reflex,° dBASE Ill,° Lotus 1-2-3° and 
Symphony*® files; generate parsers and 
design user interfaces. All of this for 


Turbo Prolog” is the most 
popular Al package in the world 
with more than 100,000 users. 

It's the 5th-generation computer 
programming language that brings 
supercomputer power to your IBM® 
PC and compatibles. You can join 
the Al revolution with Turbo Prolog 
for only $99.95. 
Step-by-step : 
tutorials, 
demo 
programs 
and source 
code 
included. 




















New Turbo Prolog Toolbox features include: only $99.95. 

Business graphic generation 

Complete communications package ; 

File transfers from Reflex, dBASE Ili, F rgano erates 66 If you're at all interested in 

1-2-3, Symphony a TOOLBOX artificial intelligence, databases, 

A unique parser generator a S expert systems, or new ways of 

Sophisticated user-interface design tools thinking about programming, by 

Only all means plunk down your $100 

System requirements $99. 95 and buy a copy of Turbo Prolog. 


Turbo Prolog: IBM PC, XT, AT or true compatibles. PC-DOS (MS- 
DOS) 2.0 or later. 384K. Turbo Prolog Toolbox requires Turbo 
Prolog 1.10 or higher. Dual-floppy disk drive or hard disk. 512K. 


Bruce Webster, BYTE 53 





fe ieat ce 


The power and high performance of 
Turbo Pascal® is already in the hands of 
more than half-a-million people. The tech- 
nically superior Turbo Pascal is the de facto 
worldwide standard and the clear leader. 


Matrix operations: inversions, 
determinants and eigenvalues 
Least squares approximations 
Differential equations 


As well as a free demo FFT program, 
you also get Least Squares Fit in 5 
different forms. 





















: Eided ° For the dealer nearest 
. Exponentia 
only 3 Logarithm you, or to order by phone 
4. 5-term Fourier = 
$99.95 5. 5-term Polynomial call (800) 255-8008 
They‘re all ready to compile and run. CA (800) 742-1133 
| Canada (800) 237-1136 
All this for only $99.95 
irements 
= s a, -DOS) 
pC, XT, AT or true compatibles. PC- Biceps 
ew! Tur: bo Pascal shes jater. Turbo — ere op anger EGA, or 
; “ ie ; r peer 
iW Numerical Methods requires mate 20208 ca, Sn ee 
Toolbox Graphix Toolbox. 8087 Sd br ed for optimal performance. 


not required, but reco 
256K. 

Turbo Pascal 3.0: tures for 16-bit MS-DOS and 
NA a papers version Lieolige nas 
Ce! ae BCD features not available. 12 


What our new Numerical Methods 
Toolbox™ will do for you now: 


Find solutions to equations 
Interpolations 

Calculus: numerical derivatives 
and integrals 

Fourier transforms 














Turbo Graphix Toolbox, Turbo Pascal, and Reflex are registered trademarks and Turbo Prolog, Turbo Prolog Toolbox, and Turbo Pascal Numerical Methods 
Toolbox are trademarks of Borland International, Inc. or Borland/Analytica, Inc. dBASE lil is a registered trademark of Ashton-Tate. Lotus 1-2-3 and Symphony 
are registered trademarks of Lotus Development Corp. IBM, XT, and AT are registered trademarks of International Business Machines Corp. Hercules is a 
trademark of Hercules Computer Technology. CP/M is a registered trademark of Digital Research, Inc. MS-DOS is a registered trademark of Microsoft Corp. 
Copyright 1986 Borland International BI-1097 
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produce identical object When you buy an Intel 
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NEURAL NETWORK 
(continued from page 20) 


Fixed-increment correction with binary images using 
8-bit signed integer weights lends itself to cheap parallel- 
ism. A separate Intel 80C51 microcomputer on a chip 
could be used for each TLU, taking weight points out of an 
array in on-board ROM. Using six committees of seven 
voting TLUs each, plus a single 80C51 to count all the votes 
and act as central control, results in 6&7+1=43 80C51 
processor chips. A system such as this should be able to 
perform real-time optical text scanning of printed litera- 
ture. Using surface-mount or hybrid packaging methods, 
the device might be as portable as a Walkman. A speech 
synthesizer could serve as an output device, receiving AS- 
Cll text from the pattern recognizer. Voila!—a reading de- 
vice for the visually handicapped. To this end, I have ex- 
amined the performance of an 8-bit integer network with 
fixed-increment correction with encouraging results. 
The TMS-320C25 digital signal processor from Texas In- 
struments may prove less expensive than the 80C51 ar- 
ray. Although the 320 is more expensive, it is much faster 
than the 80C51, and the overall system cost may be less. 


The Experiment 
There are actually three versions of SILOAM—a floating- 
point version, a 16-bit integer version, and an 8-bit integer 
version (see Listing One, page 56). The symbol ELTYPE is 
defined on the compiler invocation line and determines 
the type definition for an element of a weight point vec- 
tor. You select the pattern presentation order for training 
with the —o option and select initial conditions for the 
weight points with the —r option. The correction method 
is selected with —a, —i, and —f options, which specify 
absolute, fixed increment, or fractional correction, re- 
spectively. You select the level of detail for logging with 
the —/ option: —/0 displays only final results; —/3 displays 
the most detail. 

Iran the program on a small pattern file, representing a 





Table 1: Binary images of numerals 
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binary image of each of the numerals 0— 9 (Table 1, below). 
It has also successfully learned the entire uppercase alpha- 
bet. The alphabet pattern file was generated by rasterizing 
characters from the Hershey character database of the Na- 
tional Bureau of Standards. The entire ASCII character set 
was generated in this fashion as a high-resolution dot-ma- 
trix raster and was taught to SILOAM. The output produced 
by arun of the program with the high-resolution sample 
character set is shown in Example 1, below. 

It is interesting that a network of only one TLU per 
committee could learn all of the binary images of the 
character sets. When this is the case, the pattern set is said 
to be “linearly separable.” A pattern file of random ana- 
log pixel values was generated, comprising 100 images. In 
this case, a single TLU could not learn the pattern set— 
three TLUs were required, and different training meth- 
ods produced radically different results. Fixed increment 
performed quite poorly, absolute correction did some- 
what better, but fractional correction did the best. Values 
of the correction fraction closer to 2 seemed to perform 
better and resulted in faster convergence. In fact, conver- 
gence was even achieved with values greater than 2, al- 
though when they got up to about 2.5, convergence 
failed. 


Limitations 
SILOAM can actually get confused and forget things it has 
already learned in the process of trying to learn new 
things. In Learning Machines, Nilsson shows, however, 
that the training procedure will converge to the desired 
result, given that you choose a suitable distance to move 
the weight point and that you do not exceed the capacity 
of the machine (related to the number of TLUs per com- 
mittee and the number of patterns to be recognized). This 
result is known as the Fundamental Training Theorem, 
or the Perceptron Convergence Theorem. 

Despite the impressive performance of this simple net- 
work, it has some serious theoretical shortcomings—for 
example, it cannot learn a simple exclusive-OR function. 


Invoked By: ascii —i1 
element type is int 


—t1 


initializing 


mean of the radii: 31.749012 


standard deviation: 0.001284 


training completed in 5771 seconds. 


number of 
number of 
number of 
number of 


committees: 7 
tlus total: 7 
elements: 7063 
connections: 6302 


number of 
number of 


passes thru file: 78 
patterns in file: 87 
number of mis-recognitions: 1190 
number of tlu adjustments: 1190 
maximum element magnitude: 49.000000 


mean of the radii: 
standard deviation: 


83.3047640 
0.582814 


Example 1: Output of SILOAM with high-resolution 
character set 


Dr. Dobb’s Journal, April 1987 


Clarify your source code 


C, BASIC, Pascal, dBASE, Modula-2 programmers: be more productive 
with two new utilities from Aldebaran Laboratories 



























source Print | 150 FOR INDX = 1 TO 100 
“Occ asionally, a utility organizes your source code, simpli- ‘ Sora ee i 0: K = K+ x: WEND 
fies debugging, and makes documen- 200 NEXT INDX) SS 
comes along that makes a tation a snap! It lists one or more 160 | "™ I TBCINDK) = 0 THEN X = 5 
a: source files with informative page rw tetK) =o 
programmer’s life much Hcciliigs ao) op- Before he SoU 





easier. SOURCE PRINT pee ine pagers = Le 
while offering rt, nih ceases, ae == ¢c) ih Sys eS 
is such a program. invaluable features: Riad SARS After 
, : The Index taf 
It contributes to the (Cross-Reference TE ee ee 
. list) saves you time ai , 

9 inrecord 4.191 9=396 19.825 19=826 
programmer’s job by iy chewing exaetly | fie 2G BG BTiS 
organizing code into a where variables are _ s2.2292 sunguos saranie $2.2928 

§ 5 used and where functions, pro- $7500 54.2354 54.2364 54.2365 54.2366 
legible format and by cedures, and routines are called. gsisigs sete ake 





Locations where new 
values may be assigned to 
variables are shown, making it easy to track down that 
mysterious value change. 

Structure Outlining solves the problem of hard-to- 
see nested control structures by automatically drawing 
lines around them. 

Automatic Indentation of source code and listings 
reduces your editing time and ensures indentation accuracy. 
Plus... Source Print generates a table of contents 
listing functions and procedures. Keywords can be printed 
in boldface on most printers. Multi-statement BASIC lines 

can be split for readability. Functions and procedures can 
be drawn by name from one or more source files to form a 
new file. 


helping to organize the 
documentation and 
debugging process.” 


— PC Magazine 
Sept. 16, 1986 














Source Print and Tree Dia- 
grammer both have easy-to-use 
menus with point-and-shoot file e “ 
selection, and let you search for ‘Tr ee Diagrammer eee ar ee 
files containing a given string. main 


For IBM PC and compatibles shows your program’s overall organization at a 


glance. Ordinary program listings merely display 








with 256K. functions, procedures, and subroutines sequen- 
Join thousands of program- tially, but do not display the relationships be- 

mers who are working more tween these routines. Our revolutionary new 

efficiently using Source Print Tree Diagrammer automatically creates an 

and Tree Diagrammer. Order “organization chart” of your program showing the 

these indispensable tools today. hierarchy of calls to functions, procedures, and 

We ship immediately, and subroutines. Recursive calls are indicated and 

there’s no risk with our 60-day designated comments in the source code 

money-back guarantee. Order will appear on the chart. 

both and save. Only $115.00. Tree Diagrammer helps you organize your 

program more logically. And you'll be amazed at 


how easy it is to debug when you 00 
BO00-725/7-5/773 Dept. 54 see how your routines interact. $5 5 
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800- Ds 5 gan 7 74. Dept. 54 Aldebaran Laboratories 3339 Vincent Rd. Pleasant Hill, CA 94523 415-930-8966 





YES Rush IN€ O Source Print @ $75. ______ [1] Tree Diagrammer @ $55. ____—_ 
MasterCard, VISA, American C Both $115. Ship/Handling $5. For CA add 6% tax___ «Total 
Express, COD. Add $5 for shipping. Name 
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NEURAL NETWORK 
(continued from page 24) 


This deficiency can be shown with a geometric proof. 
Because there are two variables input to an XOR, a 2 X 1 
input pattern is needed. This results in three dimensions 
for the pattern space. Because there are four combina- 
tions of the inputs, there are four pattern planes. All four 
planes pass through the origin. If you imagine a sphere 
about the origin, these four planes intersect the sphere in 
four great circles and these four circles each intersect 
each other. If you place the south pole of the sphere on 
the origin of a 2-D graph and project the surface of the 
sphere onto the plane (as in a polar projection of the 
globe), four intersecting circles result—one centered in 
each quadrant of the plane. Their common intersection is 
around the origin of the graph. If you count the number 
of distinct regions into which these circles divide the 
plane, you get 14, but there are 16 possible combinations 
of accepting and rejecting 4 distinct patterns composed of 
2 independent variables. The exclusive-OR and the exclu- 
sive-NOR, or equivalence relation, are these missing re- 
gions. You can use a similar argument in higher dimen- 
sions to show that all such networks are likewise 
deficient in not being able to learn all possible pattern sets 
with which they could be confronted. 

In Parallel Distributed Processing, Rumelhart et al. 
show, however, that other network topologies, neural 
activation functions, and training algorithms—especially 
the gradient-descent training method—are capable of 
producing all possible Boolean switching functions. I 
highly recommend their book for anyone interested in 
pursuing the study of artificial neural networks in depth. 


Topics for Further Investigation 

One idea that needs to be explored is recognizing patterns 
over time—that is, sequences of patterns. One idea might 
be to incorporate some sort of feedback into the network 
to provide a memory capability. The output bit vector 
could be concatenated with the pattern input vector to 
provide an input to the network that was a function not 
only of the current input but also of the previous output. 

Additional exploration could be done with nonbinary 
pattern elements. Remember that the recognition pro- 
cess does not require the elements of the pattern vector to 
be 1s and 0s; any real values will still satisfy the vector 
geometrical constraints and should be recognizable with 
essentially the same algorithm. 

Geoffrey Hinton discussed some of his work with artifi- 
cial neural networks at the AAAI-86 conference in Phila- 
delphia last August (see bibliography). He showed how a 
real-valued, differentiable activation function could be 
trained by the method of gradient backflow to form its 
own independently developed internal abstractions. His 
experiment involved learning two similar family trees. 
The network formed, on its own and without being 
taught explicitly by the examples, the abstract concepts 
of generation and various family relations. It was also 
able to generalize its experience to determine the rela- 
tions between individuals it had not been previously in- 
troduced to. It got better than three out of four new prob- 
lems correct. Hinton showed that a statistical correlating 
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recognizer would fail this test and that true generaliza- 
tion of induced abstractions was being performed. 


Neurophysiology Revisited 

What can you learn about the natural mind based on a 
model neural network? Psychiatrists treat mental illness 
with drugs, such as phenathiazines and lithium, and with 
electroshock therapy. Electroshock therapy is assumed to 
destroy connections, thereby altering weights by setting 
them to zero. Phenathiazines affect the release of neuro- 
transmitters such as serotonin, norepinephrine, and dopa- 
mine. A change in these would have the same effect as 
altering the weights at the inputs to the neuron. Lithium is 
metabolized by the body’s electrochemistry in the same 
manner as is sodium, but it behaves differently in nerve 
conduction and firing potential. Thus lithium acts as an 
inert placeholder for the neuroactive sodium in the sodi- 
um-potassium complex. The presence of lithium would 
affect the threshold of the neuron, but this is just another 
weight in my model. Thus these psychoactive drugs are 
trying to counteract a medical problem that is manifested 
in a perturbation of the weights of the neuron. If the drugs 
are underprescribed, the desired effect will not be 
achieved, and if they are overprescribed, the weights may 
be totally scrambled, resulting in a worsening of 
symptoms. 


Hardware Implementations 

Recently, threshold logic has been receiving a lot of atten- 
tion from the press. The front page of the Electronic Engi- 
neering Times carried an article on February 3, 1986, enti- 
tled ‘Neural Research Yields Computer That Can Learn.” 
This article described research into a speech learning 
program based on Hopfield networks that apparently 
makes use of time feedback techniques similar to those 
outlined here. 

The next week an article appeared in the same publica- 
tion that touted threshold logic as the key to optical com- 
puters. This article gave some details on how electro-opti- 
cal technology can implement threshold logic gates with 
an enormous number of inputs. 

The week after that, an article appeared giving details 
of a gallium arsenide TLU that uses the analog addition of 
the brightness of light waves to perform the summing 
operation, so that the device is essentially a threshold de- 
tector with a photoresistor for an input. This TLU imple- 
mentation does not increase in complexity no matter 
how many inputs it recieves: they are just lights shining 
on its single photoresistor. The output of this device is a 
single solid-state laser. This last article also described a 
holographic optical interconnect scheme that is very in- 
teresting. The output lasers reflect off a hologram placed 
over the chip. The hologram acts as a phased array reflec- 
tor that directs each output laser’s light only to those pho- 
toresistors that are supposed to be connected to that out- 
put. In this way, the logic signals travel at the speed of 
light without wasting any chip real estate on signal inter- 
connect lines. The logic can be placed closer together, and 
a 3-D medium is available for interconnect wiring instead 
of the 2-D masks of current-day chips. Gallium arsenide 
chips are now available that operate at speeds of 20 GHz. 
With more closely spaced circuits and more flexible de- 
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sign rules for interconnects, a tremendous increase in 
speed should be gained from these new devices. 

This kind of hardware is just what is needed to take 
these learning systems from the several seconds per itera- 
tion speed zone into the picoseconds per iteration arena. 
You can certainly expect to see more threshold logic 
learning systems in the future if this hardware imple- 
mentation effort succeeds. 


Availability 

All the source code for articles in this issue (except for C 
Chest) is available on a single disk. To order, send $14.95 to 
Dr. Dobb's Journal, 501 Galveston Dr., Redwood City, CA 
94063 or call (415) 366-3600 ext. 216. Please specify the issue 
number and format (MS-DOS, Macintosh, Kaypro). 
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IQCLISP 


More Common Lisp features in less space 
for less money than any other IBM-PC lisp. 


@ MSDOS portable 

@ Bignums, 8087 support 

@ Multidimensional arrays 

@ Full Common Lisp package system 

@ Full set of control primitives. 

@ Keyword parameters, macros 

@ Save/restore full environments for speed 


@ STEP, TRACE, BREAK, DEBUG, ADVISE, 
APROPOS 


@ Roll-out frees space for invoking MSDOS 
commands 


lQCLISP PACKAGE $300. 


fa Integral Quality 


IQLISP 


Now with a compiler. 





m Compiler comes with source 


m@ Compiler cuts execution time 50-75%, 
Drogram size 60-80% 


@ Multidimensional arrays 

@ Floating point, bignums, 8087 support 
@ Macros 

@ Color graphics 

@ Multiple display windows 

m Assembly language interface 

@ Available for IBM PC or TI-PRO 


lQLISP PACKAGE $270. 
INCLUDES COMPILER 


@ VISA and Mastercard accepted 
@ Generous update policy 
@ Attractive educational license 
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BridgeWare™ links the fifth generation power 
of Turbo Prolog with fourth generation databases, 
spreadsheets and languages. Now you can create 
Al applications, expert systems and decision 
support systems that work with the programs and 
information you already have. 


* uses pop-up windows and menus to graphically 
model complex data structures and file combinations 


¢ easily combines data derived from several files and 


produced by different programs or languages into one 
or more Prolog structures 


¢ compatible with dbase II and III, Lotus 123 and 
Symphony, C, Pascal, BASIC, and virtually any 
high level language for the PC 


Bridge t generation gap without paying the tolls. 





¢ includes examples combining dbase, Lotus and 
Turbo Prolog; complete with source and databases 


¢ comprehensive and easy to use documentation 


Use the power of BridgeWare™ to turn databases into 
knowledge bases. Price: $69.95 includes handling 
and shipping within the US. PA add 6% sales tax. 
Order toll free, 24 hours at 1-800-351-5858 ext 409. 
In PA 215-934-3967. 


MicroRase’ 
Software Systems 


MicroBase Software Systems, Inc. 
3238 Red Lion Road 
Philadelphia, PA 19114 


The following are trademarks: BridgeWare and MicroBase—MicroBase Software Systems, Inc.; Turbo Prolog— 
Borland International; dbaseII and dbaselII—Ashton Tate; Lotus 123 and Symphony—Lotus Development Corp. 
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ACTOR WILL DO WINDOWS. 


If you've been wondering how you're going to explore Microsoft® Windows and then 
work it into your programs, what you need has just arrived. 


ACTOR™ 


ACTOR is a new programming system, and there are two reasons why it’s so good 


with Windows. 


‘First, ACTOR is an ideal programming environment. It shows you all your work through 


ERG AR 





ACTOR" is a new, interactive pro- 
gramming system, the first with Mic- 
rosoft® Windows. You have Windows 
when you write a program, and users 
have Windows when they run it. 





Thanks to a new method of “in- 
cremental garbage collection,’ ACTOR 
never has to slow down to clean up 
memory like other advanced languages. 
You can even use it for real-time con- 
trol. It's that fast. 


smarter than that? 





Moreover, ACTOR is a new, object- 
oriented programming language. Wind- 
ing objects up and turning them loose 
is a lot easier, more productive, and more 
fun than old fashioned programming. 


ACTOR offers all the features of 
an ideal artificial intelligence language, 
but in a familiar, Pascal-style syntax. 
Which makes artificial intelligence pro- 
gramming easier. And what could be 


Windows. Any part of the pro- 
gram you re writing, its output 
as it runs, error diagnostics and 
tracing, catalogs of routines, and, 
in fact, just about anything you 
like— they can all be visible on 
the screen and accessible at the 
same time, in their own windows. 

So it’s easier to See what 
you re doing. 

Second, ACTOR is an 
object-oriented programming 
language. Everything in an 
ACTOR program is a self-con- 
tained package with its own 
data and procedures. That is, 
an object. And the objects pass 
messages to each other while 
the program runs. 

With ACTOR, you don’t 
write lists of instructions. 
Instead, you define what classes 
of objects do. Which is especially 
easy because they inherit most 
of their behavior from other 
classes. That means there's less 
for you to worry about. 

And when you create an 
object, you just choose its name 
and starting values. After that it 
pretty much takes care of itself. 

What's important here is 


that windows are objects like everything else in the language. You make as many as you need, 
and they do what they're supposed to, mostly on their own. 
So it’s natural and easy to put windows in your application beams. And users will 


benefit from Windows when your programs run, as much as you do w 


en you write them. 


To order, just send in the coupon. Or call 312-491-2370 for more information. 
You ll see that ACTOR will do Windows, and more. 


Please send me more information about ACTOR. 
Name 

Address 

City 

Daytime phone 


S| | | nS 


LC) Check or money order enclosed. 0 Bill my VISA. 0 Bill my MasterCard. 


Card number. 


Exp. date 








UO I'd like to place an order while I'm at it. (ACTOR is not copy 
protected and has a 60-day money back guarantee. Educational 
pricing is available. ACTOR requires an IBM PC/XT or AT or 
equivalent. 640K and hard disk is reeommended.) 


CL) __ copies of ACTOR with Windows runtime support 
at $495 each. S 

[] __ copies of ACTOR, including Windows com- 

plete with MS-DOS Executive, at $550 each. S 

@ Please add $5 for shipping within the US., 

$30 overseas. 


@ Total. S 


The WhitewaterGroup 


3 Technology Innovation Center 
906 University Place, Evanston, IL 60201 
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REVIEWS 


Four PROLOGs for the 
Macintosh 





he growth in popularity of [ ~ 
; A nie has been vividly re- | 


flected in the products avail- 


by Dan L. Pierson 





It seems that 
~ PROLOG’s 


able for the Macintosh. Four PROLOGs | ~ 


have been released since January | 


1986; others have been announced or | . 
are rumored. This review covers the | 
| syntactic — to 
the Mac as of November 1986: PRO- | — 
LOG/m, Version 1.10a; AAIS Prolog M- |_— os 
ples of use and a disk soakahine tise 


four PROLOGs that were available for 


1.10; MacPROLOG, Version 1.0a; and 
ExperProlog-II, Version 2.32. 


The Products 

PROLOG/m 

PROLOG/m from Chalcedony Soft- 
ware is a basic Edinburgh PROLOG in- 
terpreter. It and the IBM PC version, 
PROLOG/i, are the successors to the 
several-year-old PROLOG/V. The 
package includes a 184-page paper- 
back Language Reference and Tutori- 
al; a 30-page paperback manual; and 
a bootable, unprotected disk that con- 
tains the PROLOG/m program, the 
PROLOG library, a file of release notes, 
and a folder of example programs. 
Chalcedony also sells three packages 
of extension programs: the TOOLBOX, 
the TOYBOX, and NFL-Xpert. This re- 
view includes the TOOLBOX, a collec- 
tion of 58 utility programs. Some of 
the TOOLBOX programs, such as setof 
and bagof, are standard parts of other 
PROLOGs. Other TOOLBOX programs, 
such as avl_tree and h_list, are use- 
ful tools that are not part of any other 
PROLOG. The TOOLBOX consists of a 
72-page paperback book that con- 
tains the complete source of all the 
programs, explanations, and exam- 


Dan L. Pierson, 10 Fort Meadow Dr, 
Hudson, MA 01749. Dan was one of the 
developers of the first release of VAX 
Common LISP. He is currently devel- 
oping software for Unix. 
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| implementors - 
never considered | 


bea goal. | 


program sources. 


AAIS Prolog 

AAIS Prolog is the newest of the prod- 
ucts. The first shipments for the Mac 
were in September 1986 (there was 
an earlier Unix version), and the first 
update was shipped in late Novem- 
ber. AAIS is a large, elaborate Edin- 
burgh-based system. The AAIS Prolog 
package includes a 134-page, letter- 
size manual; the primer Prolog Pro- 
gramming for Artificial Intelligence 
by Ivan Bratko; a bootable, unprotect- 
ed disk containing the PROLOG pro- 
gram and library; and a disk with a 
few example programs. 

The November update to AAIS Pro- 
log was supposed to include support 
for Macintosh graphics. Much to my 
surprise this support took the form of 
general, user-extendable support for 
both the entire Macintosh ROM and 
any additional programs in code re- 
sources. This means that anyone with 
access to an assembler or compiler 
that can produce code resources can 
extend AAIS Prolog simply by adding 
the resource to a copy of the PROLOG 
file using Apple’s ResEdit and writing 
a small PROLOG program to load the 
resource and define the new predi- 
cates. Of course, this is not novice pro- 
gramming—the price for AAIS Pro- 
log’s flexibility is that graphics and 
window programming are much 








more complicated than in a more lim- 
ited, higher-level environment. 


| MacPROLOG 


MacPROLOG is micro-PROLOG, the 
first dialect of PROLOG for microcom- 
puters. Micro-PROLOG and its big sis- 
ter sigma-PROLOG are currently avail- 
able for MS-DOS, CP/M-86, CP/M-80, the 
Apple II, the Commodore 64, most 
Unix machines, VAX/VMS, and Data 
General machines running AOS. Mac- 
PROLOG is a complete, professional 
development system with many spe- 
cial features. The MacPROLOG pack- 
age includes a PC-style ring binder 
containing a 61-page users’ guide and 
a large reference manual; the primer 
micro-PROLOG by Clark and McCabe; 
an unbootable, unprotected disk con- 
taining the PROLOG program, the Ge- 
neric (all three syntaxes) program- 
ming environment, a file of release 
notes in two formats (MacWrite and 
text), and a folder of example pro- 
grams; a disk containing the Standard 
and Edinburgh programming envi- 
ronments; and a disk containing the 
Standard and Edinburgh run-time 
systems. 

Two of the most impressive fea- 
tures of MacPROLOG are its support 
for three syntaxes with automatic 
conversion between them and its ex- 
tensive support for the Mac inter- 
face. Predicates exist to perform sim- 
ply and easily almost any task 
involving windows, menus, and dia- 
logs. For example: 


(SCROLL_MENU 
(“please select some” fruit] 
[apples pears peaches] 
[apples] _s) 


displays a moded dialog box contain- 
ing the prompt ‘‘please select some 
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fruit,’’ a scrolling list of the fruit with 
apples highlighted, and an OK but- 
ton. When the user clicks OK, the 
variable _s is unified with the select- 
ed fruit. Using the above facilities, a 
run-time system, and user-defined 
error handlers, an application can 
hide the underlying PROLOG com- 
pletely. Given all this power, it’s sur- 
prising that MacPROLOG provides ab- 
solutely no support for Macintosh 
graphics. 


ExperProlog-II 

ExperProlog-II is a polished, profes- 
sional production of Alain Colmer- 
auer’s next-generation PROLOG. Ex- 
perTelligence advertises compatible 
versions for VAX/VMS and the IBM PC; 
the reference manual also mentions 
Hewlet-Packard (HP-150, HP-1000, HP- 
9000) and expands the IBM PC to in- 
clude all MS-DOS machines. The pack- 
age includes an attractive vinyl ring 
binder containing a 171-page refer- 
ence manual and 132-page Macintosh 
users’ manual; the primer PROLOG by 
Francis Giannesini et al.; a bootable, 
unprotected disk containing the PRO- 
LOG program, an initial saved system, 
and a demo program; and a disk con- 
taining example programs and the 
‘Lisa Pascal programs, object files, and 
link commands for a sample exten- 
sion to Prolog-II. 


tor is suitable for editing non-PROLOG 
text—the other editors are too closely 
tied to the PROLOG evaluation mecha- 
nism. MacPROLOG includes a Find 
Definition menu option that makes 
the correct window visible and posi- 
tions the cursor at the start of the re- 
quested definition. Most of the PRO- 
LOGs report errors by a combination 
of an alert dialog, positioning the cur- 
sor, and highlighting the erroneous 
text. The method for interrupting a 
long running program varies from 
none in Prolog-II to using the Mac’s 
Programmer's Switch to invoke a full 
debugger breakpoint in AAIS Prolog. 


Debugger 

All the PROLOGs provide some sort of 
debugger. The traditional PROLOG de- 
bugger is called a box debugger be- 
cause it is based on viewing a PROLOG 
procedure as a box with two en- 
tries—call and redo—and two exits— 
fail and exit. With a full box debug- 
ger, tracing and breakpoints (called 
spy points) are individually con- 
trolled for each entry and exit in the 
box for each procedure. Individual 
control of the entries and exits is 
done by leashing or unleashing the 
interpreter for each type of entry or 


PROLOG/m 


exit. PROLOG/m provides full leash- 
ing and unleashing but few other 
commands. Prolog-II provides only 
an uncontrolled trace. The other two 
PROLOGs provide box debuggers 
without full leashing; the AAIS Prolog 
debugger provides a particularly 
rich selection of other options. 

The last row in Table 1 shows how 
much free memory remained on a 
512K Macintosh after starting the ba- 
sic, fully loaded system. I couldn’t de- 
termine this number for PROLOG/m. 
The other three PROLOGs provide op- 
tions to remove features and save 
some memory. I didn’t have time to 
reconfigure each PROLOG to see how 
much memory can be saved if all the 
optional features are stripped out. 


The Dialects of PROLOG 
PROLOG is more than merely another 
language that has never suffered the 
pangs of standardization; it is a lan- 
guage whose primary implementors 
seem never to have considered syn- 
tactic similarity, let alone compatabi- 
lity, a goal. The four PROLOGs in this 
review support five distinct syntaxes, 
only one of which is merely a signifi- 
cant extension of another. 

The smallest elements of a PROLOG 


AIS Prolog 


yes 
| pause 
yoo : 
yes : 
yes kk 


ExperProlog-II provides extensive, 
fairly high-level support for Macin- 
tosh graphics and mouse input but 
very little menu support (extend one 
menu) and no support for dialogs or 
applications that hide the underlying 
PROLOG. User extensions to PROLOG 
could probably do most of this, but 
extensions currently require the Lisa 
Workshop—an uncommon, expen- 
sive, and obsolete development envi- 
ronment for the Mac. 





User Interfaces 

All four PROLOGs provide a basic Mac- 
intosh environment with a menu 
bar, desk accessory support, and an 
initial window. Table 1, right, sum- 
marizes the user interface features of 
the four products. The main interac- 
tion window is called a query win- 
dow because you interact with a PRO- 
LOG system by asking it questions. 
The first three entries in the table re- 
fer to features of this query window. 
The next section refers to the pro- 
gram editor, if any. Only the AAIS edi- 


. Pat on: os * for next solution. 
5. Elaborate choices in each query dialog. 
6. Can use an editor desk accessory. 
_ 7. Highlight removed when dialog is exited; dialog sometimes covers Shighignt. _ 
8. Programmer's S\ Switch ee is recoverable but leaves the screen ses ~ and sd raely ab 
state. 
9. No leash/unieash eptions but lots of stack display and execution : modification commande. 
A 0. ea interpreted predicates can be traced; all peas can have spy points set on them. 





Table 1: User itenticle 
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MAC PROLOGS 
(continued from page 31) 


program are Clauses. A clause consists 
of a functor and zero or more argu- 
ments. The number of arguments of a 
clause is the arity of the clause. A 
clause of zero arity is an atom. Clauses 
are the elements of rules. A rule con- 
sists of a head (the left-hand side) and a 
body (the right-hand side). The head 
of a rule consists of a single clause; the 
body consists of zero or more clauses. 
The head of a rule is true if and only if 
all the clauses in the body are true. A 
rule with no body is always true and 
is known as a fact. A set of rules 
whose heads all have the same func- 
tor and arity form a procedure. A pro- 
cedure defines the meaning of a par- 
ticular functor and arity, called a 
predicate. Because the same functor 
can have different meanings with dif- 
ferent arities, predicates are typically 
referred to by both functor and arity, 
as in plus/3 for plus with three 
arguments. 


Edinburgh Syntax 


pressed as comma-separated terms 
within square brackets; the head and 
tail of a list are indicated by a vertical 
bar. Thus /X/Xs/ means the list with 
head X and tail Xs. Symbols start with 
a lowercase letter, whereas variables 
start with an uppercase letter. Arith- 
metic expressions are expressed as X1 
is X + 1. Note that X and X1 are differ- 
ent variables; once a PROLOG variable 
is bound to a value, it cannot be 
changed. Operators such as is and + 
can be freely defined with arbitrary 
precedence, associativity, and mean- 
ing. There are two types of com- 
ments: end-of-line comments starting 
with % and comment text bracketed 
by nonnesting //*’and */’asin C. Mac- 
PROLOG’s Edinburgh mode does not 
permit the end-of-line comment 
syntax. 

AAIS Prolog’s native syntax is an ex- 
tension of Edinburgh syntax that sup- 
ports AAIS’ new features and data 
types. AAIS Prolog is about as similar 
to Edinburgh PROLOG as Common 
LISP is to its ancestor MacLisp. 


The most common PROLOG syntax is | 


called Edinburgh syntax after the Pro- 


log-10 and C-Prolog systems devel- | — 


oped at the University of Edinburgh. 


This syntax is used in the well-known ® 
PROLOG primer Programming in Pro- pe 
log, the excellent new intermediate in 
book The Art of Prolog, and many | P 
other books and papers on the lan- | — 


guage. Edinburgh is the only syntax ¢ gr. ‘ammi 


that supports a wide selection of infix 


operators. All of the products except | 2 : 


Prolog-Il support the Edinburgh syn- 
tax, either natively or as an option. 

A typical Edinburgh procedure 
looks like this: 


reverse([],[]). 

reverse([X1Xs],Zs) :— 
reverse(Xs, Ys), 
append(Ys,[X],Zs). 


This is the famous “naive reverse’ 
procedure for reversing a list. It 
reads: the null list is its own reverse; 
to reverse a nonnull list, concatenate 
the reverse of the tail of the list and 
the head of the list. 

In Edinburgh svntax, clauses are 
expressed as functor(arg/,... ]), and 
rules’ “ape. clause = *:—-- clause 
clause... 
tween clauses mean and. Lists are ex- 





Bae 1970s. 








lL, where the commas be- | ~ 





a de first PROLO 





_ PROLOG researc 
were Goines au 
versity of Marseille 


5 at the Uni 






cluded Robert Kowalski and Dav 


d the Uni- | PROL 
| versity of Edinburgh group, which in- | unders' 


irren. Warren was responsible ee = : 
the next major breakthough in PRO- | | sid le 
LOG. His Prolog-10 compiler, the first | 

high- performance PROLOG system, i 


The naive reverse procedure is ex- 
actly the same in AAIS and Edinburgh 
PROLOGs. Among the syntactic 
changes in AAIS Prolog are that ‘c’is a 
character instead of a small integer 
(but can automatically be treated as an 
integer when needed), cat is a string 
instead of a list of small integers, and 
foo:append is the symbol append in 
the package foo. Also, packages are a 
typeof module; programsin one pack- 
age will not see symbols of another 
package unless the program’s pack- 
age inherits from the other package. 


Standard Syntax 

MacPROLOG’s native (Standard) syn- 
tax is LISP-like; everything is fully pa- 
renthesized and stored as lists. The na- 
ive reverse procedure is expressed in 
Standard syntax as: 


(reverse () ())) 

(reverse (__Xi__Xs) __Zs) 
(reverse _Xs _Ys) 
(APPEND _ Ys (__X) __Zs)) 













_did much to dispel the belief that logic | n 


_ programming languages had to be 


horribly inefficient. 





The Japanese gave PROLOG its next 
big boost when they decided to use 





several concurrent cc g 
on PROLOG, such as Cor 
log, + > have alreac 
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On Command: 
Writing A Unix-Like Shell for 
MS-DOS 


by Allen Holub 


This book and ready-to-use program demonstrate 
how to write a Unix-like shell for MS-DOS. On Command 
includes an enhanced, working version of Holub’s pop- 
ular Unix-like shell, along with a detailed description 
of the Shell and complete C source code. 

The techniques you'll learn are applicable not only 
to MS-DOS, but to most other programming environments 
as well. 

You'll find how to do interpretive control flow in any 
C program, a thorough discussion of low-level DOS 
interfacing and significant examples of C programming 
at the system level. 

The Shell's supported features include: read, editing, 
aliases, history, redirection and pipes, Unix-like com- 
mand syntax, DOS- compatible prompt support, and 
C-Shell-based shell scripts. A new Shell variable expands 
to the contents of a file so a program can produce text 
that is used by Shell scripts. 

The Unix-like control flow includes: if/then/else; 
while; foreach; switch/case; break: continue. 

The ready-to-use program and all C source code 
are included on disk. The Shell works on IBM PC’s 
and compatibles. 


/Util When used with the shell, this collection of utility 
programs and subroutines provide you with a fully func- 
tional subset of the Unix environment! Utilities include: 
cat; cp; date; du; echo; grep; ls; mkdir; mv; p; pause; 
printevn; rm; rmdir; sub; and chmod. Complete source 
code and manual are included. 


Receive On Command together with /Util for only $59.95! 


On Command Item #163 $39.95 
/util Item #161 $29.95 
On Command with /Util Item #164 $59.95 





Taming MS-DOS 


by Thom Hogan 


Learn how to make DOS work for you! Taming 
MS-DOS takes you beyond the basics, picking up 
where your DOS manual leaves off. 

e Learn to maximize your batch files with routines 
using redirection, filters and pipes. You'll find routines 
that prevent accidental reformatting of your hard disk, 
redefine function keys and locate files within subdirec- 
tories. You'll learn to implement a DOS help system with 
help text files, a menu system that interprets keyboard 
input, and a routine for quick redefinition of function keys. 

¢ Learn to customize CONFIG.SYS to maximize 
the performance of your system and how to use 
ANSI.SYS to tailor your system prompt and monitor 
attributes to fit your needs. 

e Taming MS-DOS includes nearly 50 ready-to- 
use programs that increase DOS's functionality. Now you 
can easily rename directories and disk volumes, change 
file attributes, check available RAM and disk memory, 
display a memory resident clock, and assign DOS com- 
mands to ALT keys. 

¢ Quick reference charts provide easy access 
to batch command syntax, CONFIG.SYS syntax and 
ANSI.SYS command strings. 

All programs, including batch files and DOS 
enhancements, are available on disk with full source 
code. 

Taming MS-DOS 
Taming MS-DOS with disk 


Item #060 
Item #061 


$19.95 
$34.95 


Return form : 
OR YES! 
g Please 
send me: 









Item #060 Taming MS-DOS $19.95 

Item #061 Taming MS-DOS with disk $34.95 
Item #163 On Command $39.95 

Item #161 /Util $29.95 

Item #164 On Command & /Util $59.95 
Item #090 SK: The System Kernel $49.95 
Item #091 DS: The Display Driver $39.95 











Subtotal 
CA Residents add tax % 
Add $2.25 per item for shipping 
TOTAL 
: [-] Check Enclosed. Make Payable to M&T Publishing, Inc. 
i Charge my [_] VISA [_] M/C [ ]Amer. Exp 
i Card # Exp. 
In CA call I i 
800-356-2002 Fg. State_____Zip 
i 2196A 
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The Tele 0 
System 





ratin 
kit 


The unique features of this four part, multitasking 
operating system will allow you to fully exploit the 
power of any 8086-based machine! Tele is written in 
C and assembly language for IBM PC compatibles and 
includes preemptive multitasking capabilities and an 
unlimited number of tasks. Tele contains full C and 
Assembler source code, as well as precompiled libraries. 
It is compatible with MS-DOS, Unix, and the MOSI 
standard. MS-DOS disk format. 

SK: The System Kernel includes the most crucial part 
of the Tele Operating System - the preemptive multitask- 
ing algorithm. SK also contains an initialization module, 
general purpose utility functions for string and character 
handling, format conversion, terminal support and 
machine interface, along with a real-time task manage- 
ment system. All other components require SK: The 
System Kernel. 

SK Item #090 $49.95 


DS: The Display Driver contains BIOS level drivers for 
a memory- mapped display (the fastest way to display 
data), window management support and communication 
coordination between the operator and tasks in a multi- 
tasking environment. DS includes functions to create 
and delete virtual displays, and functions to overlay a 
portion of a virtual display on the physical display. 

An unlimited number of virtual displays can belong to 
any particular task, and an unlimited number can be in 
the system at any time. Requires SK: The System Kernel. 
DS Item #091 $39.95 
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FOUR PEN 


COLOR PLOTTER +96 


The manufacturer has asked us not to publish their name. But 
this four color plotter was produced by one of the Worlds largest 
makers of personal computers. 
The 410 color plotter will connect to the serial port of virtually any 
micro-computer. Simple ASCII commands direct one of the four 
color pens to draw circles, arcs or ellipses on paper or transpa- 
rency material up to 11 by 17 inches. The plotter is capable of 
producing the full upper and lower case alphabet along with seven 
international character sets. Text can be printed horizotal, vertical 
or diagonal in sizes from 1/16 to 6 inches, slanted forward or 
backward to 85 degrees. 
Enlargements or reductions are achieved through elaborate firm- 
ware. Pen travel is four inches per second with .004” pen resolu- 
tion. Standard pens are available in an assortment of 32 different 
colors and widths. 
The ideal plotter for architecture, CAD engineering or graphic 
design. At $595 it was a great buy, at $159 its a steal. Support 

ackages for specific computers available. Manual only $15 re- 

undable upon purchase of plotter. 

OTHER PLOTTERS AVAILABLE: 
Hewlett Packard e Houstoninstruments @ Roland 
Sweet P e CalComp... please call for prices. 


Qume 142 PC Compatible 














Quantity Two 


These Qume double sided PC compatible drives bear the IBM 
logo. The drive was manufactured for IBM for use in the recently 
discontinued PC Junior computer. We have purchased a large 
quantity of these drives and are currently offering them in sets of 
two for only $65 each. 


Panasonic AT Compatible 


u'/75 


The Panasonic 475 is jumper selectable between 96 TPI format 
and 1.2 Megabyte as used in the IBM/AT computer. 

Suggested price of this drive is $189 but because of unusual 
buying opportunity, California Digital is able to offer these drives at 
only $115 each, quantity two. 
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Bernoulli Box 


The Smarteam 2400 offers all the features of the 

ae Smart Modem 2400 for a fraction of the price. 
ow is 

} modem for only $289. 

Also available: The Smarteam 1200 at only $139 









80 Character 
Daisy Wheel Printer 


These Fujitsu Daisy Max 830 were manufactured for Motorola’s 
Computer Division. The purchase order was canceled and Fujitsu 
was forced to liquidate these 80 character per second daisy wheel 
printers at “fire sale” prices. 

Features: bullet proof construction, serial RS-232 interface, Diablo 
630 wheels and commands, programmable line spacing in incre- 
ments of 1/96” and column spacing of 1/120”. The printer is also 
capable of underscoring, bold overprint, shadow print, centers and 
justifies along with vector plotting. 

Factory suggested price of the Daisy Max 830 was $2495, while 
svopese last California Digital is offering this liquidated special at 
only $759. Also available: tractor and sheet feeders. 





was $3540 now only 


1595 


The Bernoulli Box by lomega, features 10 and 20 megabyte removable car- 
tridges, and delivers reliability, expandability, transportability, security and 
speed in one versatile subsystem. It lets you transfer megabytes of information 
Safely and swiftly for primary or backup storage. Or combine several software 
programs onto a single cartridge for easy switching from one to another. 
Reliable... the Box has incredible resistance to shock and vibration completely 
eliminating the possility of head crash. 
ple... Grow at your own pace by adding inexpensive cartridges. When 

security is essential, don’t lock up your system... just lock up the cartridges. 
The Bernoulli Box delivers preformance that often exceeds the best of hard disk 

eed and the convenience of floppy disks. At these prices don’t be caught 
wishing you had one after a loss of irreplacable data. 


List Our Price 
10+10 Meg. A2210H $3450 1595 
20+20 ‘ A2220H 4540 2095 
Bootable Controller 255 189 
10 Meg. Cartridge 79 49 
20 Meg. Cartridge 99 65 








Smarteam 2400 Baud 





our opportunity to purchase a 2400 baud 
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Seagate 


30 MEGABYTE 
WINCHESTER 





New from Hewlett Packard the Series Il 


QD HEWLETT 
iE PACKARD aserJet Plus. More features than the 
aserJet but at a much lower price. 


Smaller footprint (not as pictured), 512 K/byte memory expandable 

to 4 Megabytes. List price $2495 California Digital price $1895. 
Other Laser Printers available: 

Texas Instruments @ Okidata @ Apple @ Ricoh @ Qume 

AST Research @ QMS @ Xerox @ Quadram @ Centronics 


NOW YOUR COMPUTER 
CAN READ!! 
Omni-Reader... the first optical 


character reader designed and 
priced for the small computer g 
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“Manuscripts -Contracts -Articles 











“Forms ‘Invoices 
‘Mailing Lists -Editing -Data Base 

Management Transfering informa- 
tion between incompatible systems 









Uses a standard RS-232 serial port hookup 
to interface eaisily with your computer. 


_Al Me 
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i. 


Also available 31 Mega- 
bytes at only $559. 


The fastest, lowest powered, longest warrantied, most durable, highest 
capacity, most reliable, lowest priced HARD-DISK-ON-A CARD 
available in the world today. 

Fastest Available + Automatic Head Unloading - 


+ 65ms Access Time - Protects Heads and 


Media - 2K Sector Buffer - Increases System Throughput + High Reliability: 28,000 hr. MTBF 
No one else even close + 15.5 Watt Power Consumption - Lowest Available-2 Year Warranty 
Longest Available 













QUME 142 half height 69 65 call Th ° 
TEACFDSSBVhaifheight 109 99 89 | US Robotics $ 
TEAC FD55FV 96 TPi, half ht. 119 109 105 
TEAC FDSSGF forIBMAT 169 159 155 | 2400 Infernal 
PANASONIC 455 Half Height 109 99 89S = ener: i 
PANASONIC 475 1.2 Meg./96 119 115 109 |) == ee eo Es ® 
MITSUBISHI new 501 halfht. 129 119 109 or ee ie tee as yt 
i ari 504A ATcomp. 169 159 155 = 
witchin wer a. : 
leataation Wit with maswal 10 jc ronan iioinet ay miahis ts 
Dual enclosure for 51,” drives 59 = a Five Inch Winchester Disk Drives Dre $ on tte 
34 pin edge connectors 5 | The = —— ennai eeisigs one hundred OMTI 5520 halt card 123 
: x ercent Ha , auto dial, 
Scotch head cleaning kit 19.1 everthing. Ammer vate ar only $1 oc each two+ | OMTI 5527 RLL controller 159 
Flip & File Storage tubs 15 SEAGATE 225 20 Meg. ¥2 Ht. 329 299 | ADAPTEC 2070 RLL 
controller 179 
VX SEAGATE 23830 Meg. RLL 389 359 | ADAPTEC 2010A 159 
SEAGATE 4026 26 M.35mS. 659 629 | WESTERN DIGITAL WD/1002WX2 119 
on SEAGATE 4051 51 M.35mS. 795 759 @ SCSI/SASI Winchester Controllers @ 
feates I ae < FUJITSU 2242 55 M.35mS. 1399 1329 “9 ; 
Oo FUJITSU 2243 86 M.35mS. 1895 1819 | XEBEC 1410A 5%” foot print 219 
= ODIME RO-202E °7M 659 629 WESTERN DIGITAL 1002-05E 5¥%"’ 289 
This 300/1200 baud modem matches design specs of | R eg. OMT! 20L 119 
ay ~— Bell 212A and for all practical purpose those of the | RODIME RO-203E 40Meg. 995 959 ; 
: te Hayes Smart Modem. The Avatex brings you reliable | RODIME RO-204E 53Meg. 995 959 @ Winchester Accessories @ 
The Sony 53W is a3¥2 inch double sided double density disk drive. | data transmission for only $99. CONTROLDATA 94155-86 M.1829 1779 Installation Kit with manual 10 
The drive can be connected to your existing floppy controller but OTHER MODEMS AVAILABLE: MAXTOR XT1140 140 Meg. 2595 2529 | Winchester enclosure and supply 139 
will require MS/DOS 3.2 to properly operate in the PC and compat- Haves © Liniveran Data's Fultcu TOSHIBA MK56 70 M. 30mS.1789 1729 | Dual 20/34 cable set 25 
ibles. The 53W is similar to the drive being used in the PC portable. y J TANDON 502 10 Meg. 419 379 | Switching power supply 49 
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TOLL FREE ORDER LINE 


lalleje}iale baal) Mik -e olell lace lw Me OME -7-leiae-lelolltelal-lmeleltlace| $.50. 
Foreign orders: 10% shipping, excess will be refunded. 
OF lihfeldalt-Me-t-t(e (14) 8 -leleR bya et tb em BOO] DM-el (reel bie-le[-16m 


(800) 421-5041 
TECHNICAL & CALIFORNIA 


(213) 217-0500 


Open accounts extended to state supported educational institu- 
tions and companies with a strong “Dun & Bradstreet” rating. 





A Challenge to Microsoft C... 


We challenge Microsoft C (Ver 4.0) to a C compiler duel to the finish, measuring compile, link, 
we will stop advertising for two months. 


and execution times. If they win, 


by Roy Sherrill 


If Microsoft C (Ver 4.0) can beat 
our new C compiler, Optimum-C 
then we will stop advertising in 
all magazines and publications 
for two full months and win or 
lose we will publish the results in 
its entirety. Even the Microsoft 
ads say “The Fastest C you’ve ever 
seen,” so let the challenge begin. 


Walter says Optimum-C is better 


It all started when Walter Bright, the 
developer of Optimum-C, was explain- 
ing his new global optimizing C com- 
piler and how it’s code would be faster 
than Microsoft C (Ver 4.0). Walter and 
I were frustrated because here we had 
a C compiler that would beat Microsoft 
C on 7 out of 10 benchmarks and also 
compile and link faster; yet our market- 
ing consultant, Mark Astengo, told us 
that Microsoft C had a lock on the C 
compiler market and by 1990 they 
would probably have an 80% market 
share. Then Mark said, “Roy, if your 
C compiler is as fast as you say it is, why 
not challenge Microsoft C to a duel? 
Furthermore, if Microsoft wins, Data- 
light should stop advertising for two 
months and print the results of the test, 
win or lose.” Well, I’ve always been one 
for a challenge. So here it is... 


We only ask the following... 


The benchmark suite will consist of 
the set of programs that Microsoft sup- 
plied to Computer Language for their 
February 1987 C compiler review issue. 
Microsoft will make available the pro- 
grams to Datalight at least two weeks 
prior to the benchmarking. The bench- 
marking will be between Microsoft C 
4.0 and Optimum-C., It will occur ata 
mutually agreed upon time and place. 
Interested individuals will be allowed 
to attend. The benchmarks will be 
compiled and run on a standard IBM 
PC-AT. 

There will be two separate tests for 
each program: compile and link speed, 
and execution speed. For each test, a 
. representative from each company will 
set up the compiler so that it performs 
at its best. 
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Optimum-C challenges Microsoft C Version 4.0 to a duel, yet is priced 


at only $139 (includes free learn C tutorial) which is one-third 
suggested retail price of Microsoft C Version 4.0 


The benchmarks will be adjusted so 
that they take sufficiently long to run, 
that the tolerance involved in timing 
them is insignificant. The winner is 
determined by the compiler with the 
faster execution times for the majority 
of the benchmarks. We'd like an answer 
from Microsoft no later than April 1, 
1987. 


So what’s a global optimizer? 


A global optimizer looks at an entire 
function at once, analyzing and optimi- 
zing the whole function. A technique 
called data flow analysis is used by 
Optimum-C to gather information 
about each function. This enables your 
compute-bound programs to execute 
as much as 30% faster after global 
optimization. But there is one catch... 
because the global optimizer ruthlessly 
searches for ways to speed-up execution 
speed and minimize memory usage, it 
has relatively slow compile times. No 
need to worry, though, because you can 
merely turn the global optimizer off. In 
fact, you can select which optimizations 
are desired. Listed on the next page are 
12 optimizations. It’s your choice: all, 
none, or partial... 


Optimum-C Version 3.0 


Full UNIX System 5 C language plus 
ANSI extensions 

Fast/tight code via powerful optimizations 
including common sub-expression 
elimination 

DLC one-step compile/link program 
Multiple memory model support 
UNIX compatible library with PC functions 
Compatible with DOS linker and assembler 
Third-party library support 

Automatic generation of .COM files 
Supports DOS pathnames, wild cards, 
and Input/Output redirection 
Compatible with Lattice C version 2.x 
Interrupt handling in C 

Debugger support 

ROMable code support/start-up source 


MS-DOS*® Support Features 


Mouse support 
Sound support 
Fast screen I/O 
Interrupt handler 


MAKE Maintenance Utility 


Macro definition support 
MS-DOS internal commands 
Inference rule support 


TOUCH date manager 


Tools in Source Code 


cat—UNIX style “type” 
diff—Iext file differences 
fgrep—fast text search 
pr—Page printer 

pwd—Print working directory 
wc—Word count 





. Constant propagation 

. Copy propagation 

. Dead assignment elimination 

. Dead variable elimination 

. Dead code elimination 

. Do register optimizations 

. Global common subexpression 
elimination 

8. Loop invariant removal 
9. Loop induction variables 

10. Optimize for space 

11. Optimize for time 

12. Very busy expressions 


SD OOP ON 


Quite frankly, if it were not for the 
global optimizer we would be much 
more timid in regards to our Microsoft 
challenge. So, if you want minimum 
compile and link times with good code 
execution speed, then compile without 
the optimizer; and if you want the 
fastest possible execution time, use our 
global optimizer. 


Choose from five memory models 


Speed your programs by selecting 
the memory model that best suits your 
application. 


Memory Models 


Model Code Data 
Compact 64k total code & data 
Small 64k 64k 
Program 1M 64k 
Data 64k 1M 
Large 1M 1M 


Compiling, one step... 


Now with the one step DLC pro- 
gram you can create OBJ, .EXE and 
.COM files. Also, DLC can handle 
multiple files and run MASM on your 
assembly files. 


Includes complete 
source code for library 


The UNIX-compatible library in- 
cludes complete source code. Experi- 
enced programmers can use the source 
code to configure and rebuild the library 
to suit the application. 

Third party library support includes 
Light ‘Tools (Blaise), ZVIEW (Data 
Management Consultants), MASM 
(Microsoft), JACK (Cracker Jack), 
APL2C (Lauer Software), BTREE, 
ISAM (SoftFocus), Vitamin C (Crea- 
tive Programming), DSD (Soft Ad- 


vances), with more on the way. 


One concise manual says it all 
in under 300 pages 


If you are tired of wading through 
reams of documentation, worry not, 
because Optimum-C includes one 
complete and concise programmer’s 
manual. ‘The manual is delivered in an 


IBM-style 3-ring binder which 
includes nine chapters, appendices, 
and easy-to- follow examples. 


Dr. DOBBS and 
COMPUTER LANGUAGE Agree 


Even though they reviewed our 
compiler before it had our global 
optimizer, both Dr. Dobbs and Computer 
Language were surprised by Datalight’s 
performance. Read what they said... 


“Reviewing this compiler was quite a 
surprise for us. For such a low price, we 
were expecting a “‘lightweight’’ 
compiler. What we got was a package 
that is as good as or better than most 
of the “heavyweights.” Datalight C 
implements a complete C language. It 
also compiles quickly, doesn’t take up 
much disk space, and looks impressive 
in the benchmarks.” 


DR. DOBBS, August 1986 


“This is a sharp compiler!... what is 
impressive is that Datalight not only 
stole the compile time show completely, 
but had the fastest Fibonacci execut- 
able time and had excellent object file 
sizes to boot!” 


COMPUTER LANGUAGE, 
February 1986 


Switch to C and we'll help! 


Even if you have never programmed 
in C before, you’ll find the C tutorial 
included free with Optimum-C a real 
time saver. If you don’t have need for 
a C tutorial give this to a friend. (It’s 
a $49 value) This combination work- 
book and floppy disk will lead you 
through the C language with tutorials, 
quizzes, and program exercises. 


*FREE C TUTORIAL! 


ee 
AP r amming 
Workshop 


infagnted Bockeur ors Software 





“Combines print and software 
technology to create the most 
integrated new type of training 
system I have ever seen.” 


ADAM GREEN, INFO WORLD 
January 27, 1986 
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Try Optimum-C risk free 


Load this C compiler in your micro- 
computer and write a C program. 
Then notice that you don’t have to wait 
as long while compiling and linking. 
Also notice the fast execution times, or 
if you haven’t programmed before, use 
the free C tutorial to walk you through 
the land of C. 

If you are not 100% satisfied, simply 
return Optimum-C in it’s original 
carton within 30 days for a full refund. 

To order Optimum-C risk free with 
your credit card, call toll free or send 
your check for only $139 (plus shipping 
and handling). 

O.K. Microsoft, it’s up to you. We’ve 
put two months of advertising on the 
line that says you can’t beat Optimum- 
C to a real test. Your answer, please? 


PRICES 


Developer’s Kit 
Optimum-C 


still only $99 
$139 


Add $5 for shipping in US/$15 outside US 
COD (add $2.50) 


Not Copy Protected 


CALL TOLL-FREE TODAY! 
1-800-221-6630 


In Washington 
and Outside U.S. call... 


206-367-1803 


ATTENTION! 


OEM DEVELOPERS 
LARGE CORPORATE ACCOUNTS 


We have developed an excellent OEM 
program that can be tailored to your 
needs. OEMs may: 

1. Get OEM discounts 


2. Buy partial reproduction rights 
3. Buy complete reproduction rights 


Also, corporate discounts are available 
to volume users. Please contact me 
directly to discuss your specific needs. 


7 Roy Sherrill 


President 


Datalight 


Box 82441 
Kenmore, Washington 98028 
(206) 367-1803 


*Limited offer available exclusively to readersywho 
purchase directly from Datalight. 





Microsoft and MS-DOS are registered trademarks of 
the Microsoft Corporation. 


MAC PROLOGS 
(continued from page 32) 


Clauses are expressed as (functor 
arg farg...J) and rules are (clause 
[clause ... J). Lists are a parenthesized 
sequence of terms, and a rule is a list. 
As in Edinburgh syntax, a vertical bar 
separates the head and tail of a list. 
Symbols start with any alphabetic 
character. Variables are distinguished 
by a leading underscore. Arithmetic 
expressions are expressed as (+ —x 1 
_x1); infix operators are not available. 





OASYS Solves the 


Cross-Development Puzzie 
Every Piece is in Place 


68020+ 
68881 








Multi-element structures with com- 
pact storage similar to Edinburgh 
clauses are available as tuples ex- 
pressed as <a__b 1>; special functions 
are provided to compose and access 
tuples. Comments are bracketed with 
nonnesting ’/*’ and */’. This syntax is 
alleged to make it much easier to write 
programs that manipulate other 
programs. 


Simple Syntax 
MacPROLOG also supports Simple, an 
English-like syntax for beginning 






Oasys offers the complete development solution 
Fast, Highly Optimized and Available 


68020 + 68881 and 68000/ 10 Cross & Native Development Tools 


% COMPILERS 
°C ¢ C++ 


e Pascal ¢ FORTRAN 
% MACRO ASSEMBLER /LINKERS 
%. SIMULATORS 


%%y. SYMBOLIC DEBUGGERS 


%%. PERFORMANCE ANALYSIS TOOLS 


%. REAL-TIME OPERATING SYSTEMS 


¥4. LANGUAGE-SENSITIVE EDITORS 


Fy. COMMUNICATIONS/ DOWN- 


LOADING UTILITIES 





Plus over 120 other software development tools including: 


¢ Other Complete Tool-Kits Targeting: 
— 80386 plus 8086/ 186/286 
— NS32032 


e PC/Ada: Validated Ada® and APSE 
for IBM PC and Compatibles 


PROLOG students. It is used in several 
primers, includingmicro-PROLOG. The 
naive reverse procedure in Simple 
syntax Is: 


(_X) reverse (_X) 
(_X _Yi_Xs) reverse _Zs 
if(_Yi_Xs) reverse _Ys 

and append (_Ys (_X) _ Zs) 


Clauses are expressed as functor 
(arg farg... J) or arg functor or arg1 
functor arg2. Rules are built of clauses, 
conditions, and conjunctions. In the 
preceding example, and is a conjunc- 
tion and if is a condition. Lists, sym- 
bols, variables, and comments are the 
same as in Standard syntax. Simple 
arithmetic expressions are asin Stand- 
ard syntax, but complex expressions 
such as: 


(SUM (X + Y / 5) Z X1) 
are possible. 


A New Model 
The naive reverse procedure in Pro- 
log-I is: 


reverse(nil, nil) —> ; 

reverse(X.X-tail, Z) —> 
reverse(X-tail, Y) 
appendY, X.nil, Z); 


Clauses are still expressed as func- 
tor(argl,arg.../), but rules are now 
clause — > clause[ clause]. The — > ; 
is required even for a fact. Lists are ex- 
pressed as a series of terms separated 
by «~’ and ending in nil. List head and 
tail are expressed as X.X-tail. Symbols 
start with at least two alphabetic char- 
acters. The rest of the symbol can con- 
tain dashes but not underscores. Sever- 
al extended characters in the Mac's 
character set are treated as alphabetic, 
so symbols such as gis are legal. 


TOOL-KITS j 
— Fairchild Clipper ony ees fi cps memes eee start Wes ae Rupee 
° C++: Object-Oriented C++ Translator bea /VMS/ULTRIX = ° New andy easily r ee i x Phe ne aie! 
arrange number igits, optionally followe 
° OASYS PC Platform™ 32-bit/2MB- APOLLO : eee 2 
16MB Co-Processor Board for IBM PC GOULD © OEM, site and cor- by any number of apostrophes, op- 
=a Compatibles. 1-5 MIPS. UNIX ue he Spare isiaaoate 4 tionally followed by a dash and any 
and MS-DOS on the same System. PLATFORM™ : 
Supports OASYS Tool-Kits. MANY MORE eee SEO ES AOS SUL SE 2 


x1, X”’, and X-the-first but disallows 
such mnemonic names as Premise 
and Denial. Arithmetic expressions 
are expressed as val(add(X,1),X1). 
Comments are strings surrounded by 
“. Comments cannot span lines and 
cannot appear within the rules defin- 
ing a single function (for example, an 


Let us help you solve your puzzle. 


ae 


SY __23F) GE. SS 
a a 
60 Aberdeen Avenue, Cambridge, MA 02138 (617) 491-4180 Soc? 


Trademarks are acknowledged to: U.S. Government (AJPO), 
DEC, Microsoft, AT&T, and XEL, Inc. 
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end-of-line comment after the first 
rule of naive reverse would be illegal). 
Program lines indented with tab char- 
acters Cause syntax errors, such as “A 
SIMPLE TERM IS EXPECTED,” with the 
cursor positioned near the tab but 
nothing highlighted. 

Prolog-II terminology can confuse 
programmers who are used to earlier 
versions of PROLOG. Where other PRO- 
LOGs refer to “rules” and “unifica- 
tion,” Prolog-II talks about “trees” and 
“deletion.” There is a reason for the 
change in terminology. Prolog-II is 
based on a new, expanded, theoreti- 
cal model, which adds the concept of 
inequalities between trees to the earli- 
er PROLOGs’ equalities. This feature, 
encapsulated in the built-in rule dif, 
adds a great deal of power to Prolog-II. 

Prolog-II’s other new features in- 
clude infinite trees and error han- 
dling. Infinite trees, which consist of 
otherwise finite trees with loops, 
provide direct PROLOG support for 
the directed graph structures found 
in such applications as finite-state au- 
tomata and grammars. Error han- 
dling in Prolog-II is based on the 
primitive block, which provides a 
simple form of signal handling. All 
Prolog-II’s standard run-time errors 
signal with block-exit so that a pro- 
gram can handle the error. Previous 
PROLOGs either exit fatally on error 
or treat errors as failure; neither ap- 
proach is really adequate for build- 
ing production programs. 

Prolog-II is missing some “inessen- 
tial” features of earlier PROLOGs. Inte- 
gers cannot be negative, though real 
numbers can be. Several layers of syn- 
tactic sugar have been removed. The 
Prolog-II list syntax resembles the ba- 
sic dot syntax that earlier PROLOGs 
and LISP hide with a more readable 
list notation. The omission of opera- 
tors makes many programs that ma- 
nipulate symbolic structures less 
readable. The variable naming rules 
and the restriction on placement of 
comments interact to require a coding 
style in which initial block comments 
and mnemonic rule names are the 
main aids to creating readable pro- 
grams. The sample programs in PRO- 
LOG and the Prolog-II manual use 
sparse one-line header comments and 
one- or two-character variable names. 

Prolog-II is a different language 
from the other PROLOGs. The syntax 
differs from Edinburgh and Standard 
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in almost every respect: the terminol- 
ogy is different, and many of the lan- 
guage features are different, new, or 
missing. Converting an Edinburgh 
PROLOG program to Prolog-II is on the 





Table 2: Data types 


Table 4: Control features 


same order of difficulty as convert- 
ing a C program to Modula-2. Prolog- 
II is a new language with powerful 
new features. It is theoretically more 
powerful than older PROLOGs, 
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SAPIENS 
STAR SAPPHIRE 
Common LISP with Class 


A common LISP Compiler 
for the IBM PC ™ 


* 710 functions 

* C source code for Libraries 

* Lexical and dynamic scoping 

* Compiles to C 

* Unlimited multi-dimensional 
arrays 

* Object-oriented programming 
(flavors) 

* Numerical functions (bignums 
up to 128 digits) 

* 64-bit virtual memory 
architecture 


* 8 megabytes virtual memory 
workspace 


* LISP to C translator 
* 


The Compiler is designed for 
use in developing programs 
directly on the PC and for port- 
ing applications written on 


larger machines down to the 
PC market. 


* 


SYSTEM REQUIREMENTS: 
The system requires a DOS-based C 
compiler which supports huge model. 
It needs 640K RAM and a hard disk. 
Programs developed with Star Sap- 
phire willrunona system with 256K 
of RAM. A hard disk is recommended 
for large applications. The virtual 
memory manager uses 16-128 kilo- 
bytes of RAM at the programmer’s 
discretion. 


+ + + $495.00 *« + 


Sapiens Software Corporation 
P.O.Box 7720, Santa Cruz, CA 95061 


(408) 458-1990 
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MAC PROLOGS 
(continued from page 37) 


though I feel it is less readable. 


Features 

Tables 2—6, pages 37 and 38, summa- 
rize the language features of the dif- 
ferent PROLOGs. A few entries need 
more explanation. 


Backtracking 

Backtrackable input (Table 3) in- 
volves one of the traditional prob- 
lems in PROLOG design—how to rec- 


oO atabase 

‘Wuleagccess yes yes 
_ Keyed database 70 yes" 
2 or _ 70 


no 


set_global 
_ get_global | Ss 


oncile the side-effect-free, back- | 
tracking world of logic programming 
with the side-effect- and state-based 
external world. The PROLOG lan- 
guage compromises by making I/O 
operations nonbacktrackable. When 
foo(S) fails in: 


try(S) :— read{(S), foo(S) 


PROLOG will not backtrack and retry 
read(S). Although this strategy is usu- 
ally fine, it does make some loops 
harder to write (what if you wanted 


to keep reading clauses until you 


_ ye 

Oo 
remember 
hae default 


PROLOG/m > 


no 


11.8 
Ae 
50 

s a 


262 a 


_ AAIS Prolog 


MacPROLOG 





Table 7: eighinek results (minutes: piace) 


Dr. Dobb’s Journal, April 1987 





found one that satisfied foo(S)?). AAIS 
Prolog provides an additional set of 
input predicates that retry when 
backtracked to. 


Control Structures 

Table 4 has a lot of information 
crammed into it. Each row represents 
a control structure. The entries in 
each row are the name(s) of the con- 
trol structure in that PROLOG, — 
means the control structure isn't sup- 
ported in that product, and an empty 
space means that this row is a contin- 
uation of the preceding one because 
some product has more than one dis- 


Bratko, Ivan. Prolog Program- 

ming for Artificial Intelligence. 
Reading, Mass.: Addison-Wesley, 
1986. Paperback, 423 pages. 

This is a new book that will be in- 
cluded as part of AAIS Prolog by the 
time you read this review. My copy 
hasn't arrived yet, so I can't say any- 
thing more about it. 


Clark, K. L., and McCabe, F. G. mi- 

cro-PROLOG. Englewood Cliffs, N.J.: 
Prentice-Hall, 1984. Paperback, 401 
pages. 
Although there are several micro- 
PROLOG primers, this is the official 
one. It is also the only one I know of 
that goes beyond elementary use of 
the Simple syntax to teach the possi- 
bilities of the whole language. The 
last section of the book, Applications 
: of micro-PROLOG, consists of individ- 
ual articles by different authors, in- 
cluding a critical-path-analysis pro- 
gram; two chapters on search, 
pruning, and game playing; and, you 
_ guessed it, the obligatory expert sys- 
tem ope 
























rer cksin, W. F., and Mellish, C. S. Pro- 
ramming in Prolog. 1st ed. Berlin: 
‘Springer-Verlag, 1981. Paperback, 


oe oa ek it is one of the 
main reasons for the “Edinburgh 
| standard. . This standard i is really the 


, later and better PROLOG texts 
Ww available. 
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tinct predicate for that control struc- 
ture. Negation by failure is the weak 
analogue of true negation used in PRO- 
LOG. Dynamic invocation is the ability 
to execute a clause bound to a vari- 
able. Metavariables are an extension 
of dynamic invocation—most PRO- 
LOGs treat a variable found where a 
clause would be expected as implicit 
dynamic invocation. MacPROLOG also 
allows metavariables in other posi- 
tions, such as a metavariable as all or 


language; good PROLOG programs 
make minimal use of side effects. But 
many programs can’t be written 
without some side effects (see Table 
5). The first two items refer to the ear- 
liest form of PROLOG side effects. PRO- 
LOG rules and facts are stored togeth- 
er ina memory database. The earliest 
PROLOGs provided special predicates 
to access and modify this database in 
order to bootstrap up the PROLOG en- 
vironment. Of course, programmers 


getting in to the quirky details and 


sugt of ae historic impor- | 


part of the body of a clause. began to use these predicates for 


other reasons such as including self- 
modifing code. Although excessive 
use of the database predicates is slow, 


Side Effects 
PROLOG is mainly a side-effect-free 
































































Books re 
Giannesini, Francis; anout Henry; plusisi x y, 32) <— 
Pasero, Robert; and van Caneghem, 3 
Michal. PROLOG. Reading, Mass.: Ad- 
dison-Wesley, 1986. Paperback, 260 
pages. : 

This is the Prolog-Il primer. It is | 
clearly written and quite readable. 
The last chapter includes a good es st 
of material on parsing natural lan- | tk 
guages and compiling grammars as | con 
well as the obligatory expert system 
example. If you're interested in Pro- | 1 
log-II, this is the best introduction | < 
you'll likely to get. If you buy Exper- | 4 
Prolog-II, you get it as part of the | LO 
package. ole 


mbers(X)<—- 
: a 


Sterling, Leon, and Shapiro, Ehud. | book consis oe s of apters “Game 
The Art of Prolog. Cambridge, Mass.: | Playing Mast 
MIT Press, 1986. Hardback, 427 pages. 
This is the book I am using to learn 
PROLOG. It is an excellent first text for 
experienced programmers who don’t 
want to bother with a primer. It is also 
an excellent classroom text. The book | 
is divided into four roughly equal 
parts: Logic Programming, The Prolog 
Language, Advanced Prolog Program- 
ming Techniques, and Applications. 
The first part, Logic Programming, 
is one of the book's greatest strengths 
and weaknesses at the same time. Its 
goal is to teach the ideas and tech- 
niques of logic programming before 


hackery of a specific language. The 
problem is that it is full of logic pro- 
grams that look exactly like the PRO- 
LOG programs in the book. Many of 
the logic programs such as: | 


plus(0,X,X) <— 
natural_number‘X). 
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THE DOCTOR 
MAKES 
HOUSECALLS! 


Don’t wait to hear the diagnosis from friends 
and co-workers ... get it straight from the 
Doctor in your own home. Subscribe to 
Dr. Dobb’s Journal and enjoy the 
convenience of having your personal 
copy delivered to your home or office 
each month. 
And you'll save over $5 off the cover price! 
Every issue of Dr. Dobb’s Journal will 
bring you indispensable programming 
tools like algorithms, coding tips, 
discussions of fundamental design 
issues, and actual program listings. 
You'll find regular coverage of: 

e Popular languages such as C, 
Assembly, Forth, Pascal, Ada, 
Modula-2, BASIC, FORTRAN, 
and Cobal. 

¢68000 and 80x86 architectures 

e MS-DOS, and Unix operating systems 
¢ Usable techniques and practical applications 
of AI and object-oriented programming 
research. 

e New product reviews, and lively discussion of 
professional issues in software design. 

e Compilers, cross assemblers and much more! 
Dr. Dobb’s Journal of Software Tools... 
the magazine that has lived up to its reputation 
as the foremost source of technical tools since 


1976. One year (12 information-packed 
Dr. Dr. Dobb's} ournal of issues) is just $29.97 - to subscribe simply 


il in the attached card. But do it today... 
Software To Jools 


you won't want to miss any of the exciting 
FOR THE PROFESSIONAL PROGRAMMER issues we have planned! 
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MAC PROLOGS 
(continued from page 39) 


hard to understand, and generally 
bad form, some use of them has true 
advantages in both speed and power. 
Such powerful predicates as setof 
would not be possible without data- 
base modification. 


Other Features 

Grammar (Table 6) refers to definitive 
clause grammar rules. This special 
syntax for defining a useful subset of 
natural-language grammars is de- 
scribed in Programming in Prolog 
and The Art of Prolog. 

None of the PROLOGs can create 
true stand-alone applications. Click 
icon means that a program icon can 
be double-clicked to automatically 
start the PROLOG with that program 
loaded. All the PROLOGs permit the 
loaded program to take control as it 
starts for a poor-man’s application. 


Vendors 


-PROLOG/m 

‘Chalcedony Software Inc. 
5580 La Jolla Blvd., Ste. 126 
La Jolla, CA 92307 

(619) 483-8517 

$99.95, PROLOG/m 
- $29.95, TOOLBOX 

$29.95, TOYBOX 

$49.95, NFL-X-pert 
| Jer Service Number 27 












>rolog 


iced A.I. Systems Inc. 
ox 39-0360 





Milford, CT 06460 
(203) 877-7988 

- $295, MacPROLOG 
- $100, optimizing compiler 
| Reader Service Number 29 


ExperProlog-I 

-ExperTelligence Inc. 

9 San Ysidro Rd. 
Barbara, CA 93108 


7871 
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Prolog-II allows the entire state of the 
PROLOG to be saved in binary form so 
that a development or application 
can be restarted quickly. MacPROLOG 
provides two minimal run-time sys- 
tems, but the run-time system, Mac- 
PROLOG itself, and your compiled 
code must all be on the disk in order 
to run the program. 


The Benchmarks 

The most common metric of PROLOG 
performance is LIPS, logical infer- 
ences per second. This is no more 
useful than MIPS, but I’ve done it any- 
way. The second row of Table 7, page 
38, is a LIPS figure calculated by divid- 
ing the time for naive reverse of 30 
elements—the most common PRO- 
LOG benchmark. The third row of Ta- 
ble 7 is a measure of memory utiliza- 
tion. It is the length of a list that 
caused a memory or stack-full error 
message from naive reverse. List 
sizes of 30, 50, 60, 90, 120, 180, and 240 
were used in the test. 

Map coloring is a simple generate- 
and-test recursive loop. This sort of 
thing is fairly common in PROLOG ap- 
plications. Graph connect uses a lot of 
database hacking with asserta and re- 
tract. Sieve is, of course, the tradition- 
al Byte sieve benchmark. I included it 
to give some idea of the arithmetic 
performance of the PROLOGs. 

AAIS Prolog comes up with about 
twice the LIPS of the MacPROLOG opti- 
mizing compiler here, but the ratings 
are reversed with a more complicat- 
ed benchmark. Both the MacPROLOG 
compilers handily won the map col- 
oring test. The compilers, especially 
the optimizing compiler, had much 
better memory utilization than any 
of the interpreters. The number of 
resolutions in a naive reverse of 
length N is the triangular number of 
N+1—that is (N+1)(ceiling((N+1)/ 
2)). Reverse of 30 takes 496 resolu- 
tions, 60 takes 1,891, 90 takes 4,186, 
and 240 takes 29,161 resolutions. The 
advantage of dif is also clear, improv- 
ing Prolog-II’s performance on map 
coloring by a factor of 5. 


Conclusions 
PROLOG takes a lot of memory. All 
these products are really cramped on 
a 512K Macintosh. 

These are four very different prod- 
ucts. For learning PROLOG and play- 
ing with it at home, I'd recommend 


AAIS Prolog. It’s fast; has many fea- 
tures, including unlimited potential 
use of the Mac environment; and the 
price is reasonable. For serious re- 
search, development, or prototyping 
in which graphics are not an issue, I’d 
definitely consider MacPROLOG as 
well. Its memory-efficient compilers 
and easy use of the Mac user interface 
make it well worth considering. Pro- 
log-II has a powerful and interesting 
base language, but the price is high 
and both the user interface and lan- 
guage are less convenient than the 
other PROLOGs. Buy it if you like the 
Prolog-II language model or need its 
features; otherwise, wait until its ven- 
dor lowers the price. The only PRO- 
LOG I cannot recommend at all is PRO- 
LOG/m. It’s not bad by itself, but it’s 
just not competitive. For only a little 
more money you can get AAIS Prolog. 

If you are determined to ship a Mac- 
intosh product in PROLOG, you need 
two features: the ability to supply 
your own user interface and some 
sort of run-time system. Only Mac- 
PROLOG comes close to meeting these 
requirements. It meets the first re- 
quirement easily, but I’m not con- 
vinced by a “run-time system” that re- 
quires that both the language 
interpreter and the run-time system 
file go along with the application on 
every disk. 
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Svstems 


by Richard W. Grigonis 


Micro Forge PROLOG, here is an inter- . 
esting approach to setting up a quick | | 


expert system using the Amiga BASIC 
package that you already own. By 
now youve probably noticed that 
this is the best Microsoft BASIC inter- 
preter ever written (so good, in fact, 
that it almost isn’t BASIC), and further 
improvements are on the way. 


Rule-Based Systems 

As all readers of DDJ’s special AI issues 
are aware, most expert systems are 
essentially a collection of production 
rules and are therefore known as 
rule-based systems (RBSs). The rules 
have a left-hand side (the antecedent, 
or propositions combined in logical 
AND/OR form that comprise a situa- 
tion) and a right-hand side (the conse- 
quent, goal, or action to be taken). 

A simple rule is as follows: 


IF Left-hand side 

THEN Right-hand side 
IF X has hair 

THEN X is a mammal. 


Notice how the rules of an RBS are 
simple modules of logic, taking the 
form of IF...THEN statements. The 
THEN sections of some rules match 
the IF sections of others, forming an 
inference network that can be drawn 
as an AND/OR tree. The rules them- 
selves are quite useless unless the pro- 
gram also possesses an inference en- 
gine that searches through the rules 
in one of two ways. If the situation on 
the left side is examined first and the 
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right side is taken as the action, then 


the system can be said to be a bottom- 
up, forward-chaining one. If, howev- 
er, the right side is examined first and 
taken as a goal or hypothesis to be 
proved by demonstrating the truth of 
the propositions on the left side, then 
such a system is a top-down or back- 
ward-chaining one. 


MYCIN for the Masses 
Perhaps the most famous backward 
chaining, depth-first search expert 
system is MYCIN, which was also one 
of the first major expert systems and 
is still used as a sort of benchmark in 
comparing expert systems. MYCIN 
has 450 rules that are used to diag- 
nose and suggest antibiotic treatment 
for 100 blood and meningitis infec- 
tions. The program listing accompa- 
nying this article (Listing One, page 
74) is a simple MYCIN-like program 
written as a demonstration of such a 
system in Amiga BASIC. It took just a 
few hours to port the original version 
to the Amiga from another one of Jay 
Miner's hardware creations, my old 
Atari 800. In fact, a few line numbers 
from the original still exist in the 
Amiga BASIC code, serving as labels. 
Instead of diagnosing diseases on 
the basis of symptoms, the program 
in the listing identifies animals on the 
basis of physical attributes and ob- 
served behaviors. It is a toy system 
designed to demonstrate the MYCIN 
reasoning mechanism in Amiga BA- 
SIC. You can find the knowledge base 





~~] of rules it uses on pages 242—243 of 


Winston and Horn’s textbook LISP.1 
The problem with writing expert 
systems in BASIC as opposed to PRO- 
LOG is that the inference engine nec- 
essary to parse the knowledge base of 


| rules and to drive a path through 
| them must be written by the 


programmer. 
You can store production rules as 
DATA statements as follows: 


DATA Rule 1,IF,has hair, 
THEN,is mammal 

DATA Rule 2,IF,gives milk, 
THEN, is mammal 


Unfortunately, as most BASICs are 
not recursive, programming a gener- 
al-purpose top-down parser to act 
upon these DATA statements requires 
considerable effort. You must estab- 
lish push-down stacks, queues, stack 
conventions, and so on to store local 
variables for the reentrant subrou- 
tines of the inference mechanism. An- 
other problem with a general-pur- 
pose parser of this type is that the 
processing overhead needed to 
search through the knowledge base 
of production rules and keep track of 
what is going on results in a slow pro- 
gram, although it is versatile. Code for 
a BASIC expert system using DATA 
statements such as the preceding 
ones, along with a stack, backward- 
chaining, and the Winston and Horn 
rules (but without the MYCIN certainty 
factor inference routines) can be 
found in the September 1981 issue of 
Byte.” 


Elegant BASIC? 

The (supposedly) quick-and-dirty ap- 
proach I have elected to use for devel- 
oping an Amiga BASIC expert system 
requires a bit more code for each 
rule, but it forces the BASIC interpret- 
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er (via its own stack) to handle the 
bookkeeping required for searching 
through the rules in a top-down, 
backward-chaining, depth-first man- 
ner. A single stack is employed, but 
only to keep track of what routines 
have been activated so that the sys- 
tem can explain its reasoning to users 
when they key in “why” or “why?” 
in response to a question from the 
system. Otherwise, the expert system 
is herein presented in a form similar 
to—though not exactly the same as— 
a syntax-directed recognizer, such as 
those used in computer language in- 
terpreters and compilers. 

A BASIC interpreter, for example, 
can be constructed from these pro- 
duction rules: 


<statement> ::= 
LET <identifier> = 
<expression> 
<statement> ::= 
NEXT <identifier> 
<statement> ::= 
INPUT <identifier list> 
<statement> ::= 
GOTO <line number> 
<statement> ::= 
FOR <identifier> = 
<expression> 
TO <expression> 
<statement> ::= 
GOSUB <line number> 


Systems programmers writing a BA- 
SIC interpreter based upon these 
rules must now write a syntax-direct- 
ed recognizer in C or assembly lan- 
guage that can parse all the kinds of 
BASIC language statements shown 
above. They do this by writing sepa- 
rate recognizer procedures for each 
nonterminal in the language, with 
one procedure calling others as dic- 
tated by the production rules. For the 
preceding rules pertaining to BASIC 
statements, John Zarrella? suggests 
one possible syntax recognition pro- 
cedure (see Example 1, right). 

Because an expert system is also 
based upon production rules, pro- 
grammers can examine the compo- 
nents of each rule and write recog- 
nizer procedures or subroutines in a 
high-level language in the same man- 
ner as with the BASIC interpreter dis- 
cussed previously. 

In constructing such a program, 
you must write a subroutine for each 
nonterminal and terminal in the lan- 
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guage or, as in this case, each hypo- 
thetical fact, assertion, or combined 
assertion to be proven. The “words” 
analyzed by this expert system syn- 
tax-directed recognizer are the nu- 
meric values supplied by users in re- 
sponse to questions asked by the 
program. In other words, each hy- 
pothesis (albatross, penguin, ostrich, 
zebra, and so on) is a subroutine 
“proved” by calling other subhy- 
potheses (bird, mammal, and so on), 
also in the form of subroutines, that 
in turn call still other hypothesis/ 
subroutines (has feathers, lays eggs, 
and so on). If you could call such pro- 
cedures recursively (which is not re- 
quired in this kind of system), then 
you would have a recursive descent 
parser—not exactly what you would 
call quick-and-dirty code. 

Such syntax-directed recognizers 
are not general purpose—meaning 
that you cannot simply plug in a new 
set of rules describing expertise in 
some other domain of knowledge— 
but they are faster than general-pur- 
pose inference engines and they are 
more in keeping with the procedural 
and modular knowledge representa- 
tion philosophy suggested by pro- 
duction rule systems. Indeed, you 
can now insert additional, special 
subroutines or functions of arbitrary 
complexity here and there in the 
program as needed. Such systems al- 
low the BASIC language to do what it 
does best—define the heuristic flow 
of control (procedures) of the expert 


procedure STATEMENT; 
local LEXEME; 
LEXEME=GETLEXEME; 
select LEXEME of 

"LET": | 


end; 
"NEXT": 
"INPUT": 
"GOTO": 


"FOR": begin 


call IDENTIFIER: 
if GETLEXEME /=_ 
call EXPRESSION; 
if GETLEXEME /= 


begin  _ 
call IDENTIFIER 
IF GETLEXEME /= 
call EXPRESSION 


system. It does this so well that you 
can no longer refer to the production 
rules explicitly because they are now 
implied in the pattern of nested sub- 
routines residing in the code. You 
must therefore now speak not just of 
rules and combined assertions but of 
“facts” and ‘‘combined facts” in nu- 
meric arrays worked upon by the 
subroutines, all of which can be 
imagined as residing on the nodes 
and arcs of an imaginary inference 
net or AND/OR tree. 

Another strength of this kind of 
system is that error messages and ex- 
planations of the top-down reason- 
ing process are easier to program as 
the system is designed specifically for 
the particular knowledge base used. 

Like MYCIN, the system presented 
here can accept information volun- 
teered by users at any level of the rea- 
soning process. If users are not abso- 
lutely sure of the animal or 
classification they are thinking of, 
the program ignores their input and 
digs deeper into the AND/OR tree. Pro- 
vision has been made in the program 
for programmers to change this 
threshold easily (see the IF statement 
two lines above the Test.for.a.posi- 
tive.number: subroutine). 


AND Clauses 

The system can handle negative in- 
ferences and degrees of certainty ina 
user’s answers through a mathemati- 
cal process essentially the same as 
that used by MYCIN. 


call IDENTIFIER | 
call IDENTIFIERLIST; 
Call LINENUMBER; 





"a" then call eenor; iw 





eds © bas 


call EXPRESSION; 


end; 
"GOSUB": 
end; 


Call LINENUMBER; 





Example 1: John Zarella’s syntax recognizer 
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EXPERT SYSTEMS 
(continued from page 43) 


As an example, let’s take a look at 
one of the rules in the system’s AND/ 
OR tree: 


IF animal is an UNGULATE 

AND animal HAS BLACK STRIPES 
THEN animal is a ZEBRA 
(attenuation factor =0.8) 


Let's say that the user’s certainty on 
the UNGULATE branch of the ANDed 
relation is 0.7 (1.0 being absolute cer- 
tainty) and the certainty on the HAS 
BLACK STRIPES branch is 0.8. 

In normal probability theory, you 
would multiply the individual frac- 
tional probabilities, yielding 0.56. MyY- 
CIN, however, does not use standard 
probability theory. Conventional 
probability theory was rejected be- 
cause it was felt that the AND clauses 
in classification systems violate the 
two foundations of standard proba- 
bility theory (particularly Bayes’ 
rule): statistical independence and 
prior probabilities (or priors). 

Standard statistical probability as- 
sumes that the components in the 
ANDed relations are independent of 
each other and that an examination of 
a sufficiently large number of exam- 
ples of a rule allows you to construct a 
Statistical, frequency model of the 
rule so that you can give an a priori 
probability of a hypothesis being true 
in the absence of any evidence. The 
developers of MYCIN rejected and/or 
modified these ideas because the 
symptoms of a disease (or the physical 
attributes of an animal, for that mat- 
ter) are not independent but usually 
occur in groups. Also, it is difficult to 
obtain data on and analyze thousands 
of cases to determine frequencies. 

Instead, MYCIN’s developers creat- 
ed their own technique for dealing 
with uncertainty, based on confirma- 
tion theory (logical probability) and 
the use of certainty factors and atten- 
uation factors. You must therefore 
distinguish certainty (the degree of 
confidence you have in a fact or rule) 
from ordinary probability. 

A certainty factor (CF) is a number 
between —1 and 1 given to a fact or 
relation to indicate the confidence a 
user has in providing data concern- 
ing a fact or relation to the expert sys- 
tem. In this sense, certainty factors 
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are really confidence factors, not 
probability coefficients. By the end of 
a user's session with an expert sys- 
tem, the program itself has combined 
and computed new certainty factors. 
In MYCIN, if the computed truth of a 
fact exceeds 0.8, then the fact is 
judged to be proven and the certainty 
factor is now 1.0. Also, if the certainty 
factor falls into the range —0.2 to 0.2, 
then the certainty factor is set to 0 
(unknown) and a certainty factor in 
the range —0.8 to —1.0 is converted 
to — 1.0 (definitely false). 


The program 
combines 
and 
computes 
new certainty 
factors. 


An attenuation factor is a number 
between 0 and 1 that is multiplied by 
a certainty factor, yielding a new cer- 
tainty factor. It is an indicator of a 
rule's inherent reliability, or at least 
the confidence a human expert had 
in the efficacy of the rule when the 
system was being developed. Just as a 
certainty factor starts out as really a 
confidence factor on the part of the 
user, an attenuation factor is likewise 
a confidence factor on the part of the 
human expert from whom the rules 
were derived. 

In the AND clause shown earlier, 
the probability of one conditional 
AND another is taken as a minimum 
of their certainties, so the program 
finds the lowest certainty factor on 
the branches of the AND clause (the 
certainty factors of UNGULATE or HAS 
BLACK STRIPES) and multiplies it by 
the attenuation factor of 0.8. If the 
certainty passed up the tree by the 
Prove.ungulate: subroutine is 0.7 and 
the certainty factor given by the 
Prove.black.stripes: subroutine is 0.8, 
the Prove.zebra: subroutine will se- 
lect the lower figure of 0.7 and multi- 
ply it by the zebra AND clause attenu- 
ation of 0.8, yielding a new output 
certainty factor of 0.56. The figure, 
coincidentally, matches that given by 


standard probability. In any event, 
this result is passed up to the user as 
the final certainty factor for the ani- 
mal being a zebra. 


OR Clauses 

But what would have been the case if 
the rule had been an OR clause in- 
stead of an AND clause? That is, what 
if the rule had looked like this: 


IF animal is an UNGULATE 
OR animal HAS BLACK STRIPES 
THEN animal is a ZEBRA 


The designers of MYCIN thought 
that the certainty factors on the 
branches of an OR node should rein- 
force one another. Remember that 
the certainty factor on the UNGULATE 
branch is currently 0.7 and the cer- 
tainty factor on the HAS BLACK 
STRIPES branch is 0.8. The CF on the 
UNGULATE branch takes you 70 per- 
cent toward proving that the animal 
is a zebra (0.7). That still leaves 30 per- 
cent (0.3) to go in order to achieve ab- 
solute certainty. As it happens, the CF 
on the HAS BLACK STRIPES branch 
(0.8) “carries” the the total certainty 
an additional 80 percent over the re- 
maining distance of 0.3. Because 80 
percent of 0.3 is 0.24, the certainty 
factor of the animal being a zebra is 
now 0.7 + 0.24, or 0.94. Had a third 
branch existed with a certainty fac- 
tor of, say, 0.5, then the total certainty 
would have been carried another 50 
percent over the remaining distance 
of 0.06, yielding a new total certainty 
factor of 0.97. 

One way of expressing this proce- 
dure mathematically is as follows: 


New CF = CF1 + CF20 — CFD 


A more confusing (though equiva- 
lent) expression is this one: 


New CF = CF1 + CF2 — (CF1 X CF2) 
In order to handle negative numbers, 
however, you would have to convert 
the above equation into the 
following: 


New CF = CF1 + CF2 + (CF1 X CF2) 


Also, things get awkward when 
you are using three certainty factors: 


New CF = CF1 + CF2(1 — CF1) 
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EXPERT SYSTEMS 
(continued from page 44) 


+ CF30 —[CF1 
+ CF2(1—CF1))) 


Fortunately, this equation can be sim- 
plified to this one: 


New CF = 1 — (1 — CF1) (1 — CF2) 
Gis (CFS) 


My system uses this equation if at 
least one certainty factor on a branch 
is positive. If all the certainty factors 
are negative or 0, the system uses this 


equation: 


New CF = —1 + (1 + CF1) (1 + CF2) 
(FC F3) 


At this point you should distinguish 
the use of negative numbers in stat- 
ing the confidence in a hypothesis 
from situations where a lack of evi- 
dence is necessary to prove a hypoth- 
esis, in which case you must add a 
rule to the knowledge base testing for 
the lack of certain information. Here 
is one such rule from MYCIN itself: 


IF identity of organism 
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is not known 
AND gram stain of organism 
is not known 
AND morphology of organism 
is not known 
AND site of culture is csf 
AND infection is meningitis 
AND age of patient 
is less than or equal to 17 
THEN (.3) category of organism 
is enterobacteriaceae. 


Some researchers have pointed out 
some deficiencies with the MYCIN ap- 
proach to reasoning with certainty 
factors.‘ I find that all forms of the OR 
clause equations increase the certain- 
ty factor values too much, so I place 
attenuations on all possible branches 
to bring the results closer to what you 
would expect from standard proba- 
bility theory. Researchers now use 
formulas closer to standard probabili- 
ty theory in the new systems, but I 
will not examine them here. 


Expanding the System 
The system is currently designed to 
identify seven animals, and the HY- 
POTHESIS numeric array has been di- 
mensioned to accept up to 20 ani- 
mals. I'll now demonstrate how you 
add a new animal to the system. 
Let's say you want the program to 
be able to recognize an emu, which is 
a large flightless bird like an ostrich 
but with dark feathers and large red 
eyes. The rule you wish to express is 
as follows: 


IF the animal is a BIRD 

AND the animal CANNOT FLY 

AND the animal HAS DARK FEATHERS 
AND the animal HAS BIG RED EYES 
THEN the animal is an EMU 


This AND clause looks as if its going to 
be pretty reliable, so let’s give it an 
attenuation of 1. 

Remember that, as the program is 
backward chaining, it looks at this 
rule in reverse, taking the‘emu iden- 
tity as a hypothesis to be proved by 
calling other subroutines that in turn 
attempt to prove that the animal is a 
bird, cannot fly, and so on. 

Let's add the actual emu subrou- 
tine first. First, you scroll down to the 
bottom of the DATA statements, 
where you see the following lines: 


DATA 35,has pointed teeth 
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pointed.teeth=35 
DATA —1, END OF DATA 


Now add the new fact and user re- 
quest string for emu (fact #36) above 
the last line. The result should look 
like this: 


DATA 35,has pointed teeth 
pointed.teeth=35 

DATA 36,is an emu 
emu=36 

DATA —1, END OF DATA 


As emu is one of the top-level hypoth- 
eses (animals to be identified), there 
are two special areas in the program 
to change. Below the line, REM TOP- 
LEVEL HYPOTHESES (ROOTS) OF AND/ 
OR TREE:, find these lines: 


HYPOTHESIS(7)= cheetah 
number.of.hypotheses=7 


and change them to look like these: 


HYPOTHESIS(7)= cheetah 
HYPOTHESIS(8) = emu 
number.of.hypotheses=8 


The other area of the program to 
change as a result of emu being a top- 
level hypothesis is the executive call- 
ing routine a little farther down. 
Make an addition just above line 
10165 that reads as follows: 


GOSUB Prove.emu 
IF halt.on.success= 2 
AND OUTPUT.CFiemu)=1 THEN 10165 


You then add the subroutine 
shown in Example 2, below, to prove 





the animal is an emu (with an attenu- 
ation of 1) to the very bottom of the 
program. 

If you had been trying to represent 
an OR clause instead of an AND 
clause: 


IF the animal is a BIRD 

OR the animal CANNOT FLY 

OR the animal HAS DARK FEATHERS 
OR the animal HAS BIG RED EYES 
THEN the animal is an EMU 


you would have had to assign attenu- 
ations to each branch because the 
components of such a disjunctive re- 
lation can each be considered as a 
separate minirule contributing a cer- 
tainty factor to prove that the animal 
is an emu. This is known as a multi- 
ply argued certainty. A subroutine 
describing this (again with arbitrarily 
chosen attenuations) would look like 
that in Example 3, page 48. 

But what if the rule had taken the 
form of a compound relationship of 
ANDs and ORs? 


IF (animal is a BIRD 

AND animal CANNOT FLY 

AND animal HAS DARK FEATHERS) 
OR animal HAS BIG RED EYES 
THEN animal is an EMU 


This way of proving the animal is an 
emu is actually just an OR clause with 
two components, one of which can 
be further reduced to some ANDs. My 
solution is to write a separate routine 
for the AND clause (with an addition- 
al attenuation to keep the OR clause 
certainty under control). Thus, you 
now have the two subroutines 


OMPONENT(3)=dark.f 





. COMPONENT (4) =big.red. 


£ or.for.AND.clause=1 _ 
UB Compute.AND.clause.cf __ 











Example 2: Emu-proving subroutine 
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MULTITASKING 


Introducing 
MultiDos Plus 


The new multitasking software 
for the IBM-PC. 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDos Pius an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 

e Your software continues to run 
under DOS. No need to learn a 
new operating system. 

e Use the compilers you already 
have. Supports software written in 
any language. 

e Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend/ 
resume programs. 

e Programmatic interface via INT 15H 
for the following. 

* Intertask message communica- 
tion. Send/receive/check mes- 
sage present on 64 message 




























queues. 

* Task control by means of 
semaphores. Get/release/check 
semaphores. 

* Change priority-128 priority 
levels. 

* Suspend task for specified 
interval. 





Spawn and terminate external 

and internal tasks. 

Disable/enable multitasking. 

and more! 

¢ Independent foreground / 
background displays. 

e Access to DOS while applications 

are running. 


Hardware/Software Requirements 
IBM PC/XT/AT or true clone. Mono- 
chrome/CGA display adaptors or 
equivalent cards only. Enough memory 
to hold MultiDos Pius (48 KB) and 
all your application programs. Also 
may need 4 or 16 KB memory for 


‘hidden screens’ for each active task. 
MS-DOS (or PC-DOS) 2.0 or later 


operating system. 
49.95 


Outside USA add $5.00 shipping and handling. 


Visa and Mastercard orders call toll- 
free: 1-800-367-6707. In Mass call 
617-651-0091, or send check or money 


ae NANOSOFT 


13 Westfield Rd, Natick, MA 01760 


MA orders add 5% sales tax. Write for 
source code and quantity price. 
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SEIDL 
MAKE 
UTILITY 


Version 2.0 


The BEST just got BETTER! 


If you're serious about software 
development, consider the SEIDL 
MAKE UTILITY (SMK). SMK is 
not just another copy of the Unix 
Make. It was specifically designed 
to deliver features and performance 
not found in other makes. 


V Structured Language t 
describe dependencies in a clear, 
concise and portable manner. 


V Rich Command Set 


includes parameterized macros, 
variables, if-then-else, iteration, 


wild cards, exception cases, | 


macro libraries, interactive state- 
ments, environment access, pat- 
tern matching and much more! 


Y Intelligent Analysis 
algorithm handles nested include 
files, library dependencies, and 
performs consistency tests to 
detect errors that other makes 
would blindly ignore. 


Y Seidl Version Manager 
compatibility lets you expand 
your system into the most 
comprehensive revision/version 
control system available. 


"SMK is a very good Make indeed. 
Its major distinction is a truly simple 
Dependency Definition Language, 
easy to learn and easy to Use... 
you'll probably bless SMK." 

— Sextant, July ’86 


"SMK offers many unique features. 
[The error handling facility] is 
extremely useful if a large number of 
files must be recompiled." 

— Computer Language, June ’86 


DOS $3.50 p&h 
Version $9 9g” Call for other 


Only op systems. 


Call Today 
1-313-662-8086 


Visa/MC/COD Accepted 
Dealer Inquiries Invited 


SEIDL COMPUTER ENGINEERING 


3106 Hilltop Dr., Ann Arbor, MI 48103 
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EXPERT SYSTEMS 
(continued from page 47) 


characters of the label are significant. 
The second subroutine will also re- 

quire access to both the user and the 

shown in Example 4, below. numeric arrays to compute the cer- 
Supposedly, the Amiga BASIC inter- | tainty factors, so you must log it in 

preter does not accept subroutine la- | your DATA statements: 

bels longer than 40 characters, but 

the 43-character label Prove.bird.- | DATA 37,is a bird and cannot fly 

and.cannot.fly.and.dark.feathers: and dark feathers 

works correctly. The Microsoft peo- | bird.and.cannot.fly 

ple probably mean that the first 40 .and.dark.feathers=37 


Prove.emu: 
current.fact=emu | 
GOSUB Test.fact.for. houcn. sinput | 
IF leave=yes THEN RETURN 
GOSUB Prove.bird 
GOSUB Prove.cannot.fly | 
GOSUB Prove.dark.feathers 
GOSUB Prove.big.red.eyes 
number.of.or.clause.components=4 © 
OR.COMPONENT(1)=bird 
AT.FACTOR.FOR.OR. COMPONENT(1)=. 
OR.COMPONENT(2)=cannot.fly 
AT.FACTOR.FOR.OR.COMPONENT(2)=.85 
OR.COMPONENT(3)=dark.feathers 
AT.FACTOR.FOR.OR.COMPONENT(3)=.9 
FOR.COMPONENT(4)=big.red.eyes 
AT.FACTOR.FOR.OR.COMPONENT(4)=1 
GOSUB Compute.or.clause.cf 
GOSUB Deduce 
RETURN 





Example 3: Alternate emu-proving subroutine 

































Prove.emu: 
current.fact=emu 
GOSUB Test.fact.for.human.input 
IF leave= =yes THEN RETURN  - 
GOSUB Prove.bird.and.cannot.fly.and.dark. feathers _ 
GOSUB Prove.big.red.eyes _ 
number.of.or.clause.components=2 
OR.COMPONENT(1)=bird.and. cannot tLY. and. dark. feat 
AT.FACTOR.FOR.OR. COMPONENT(1)=.8 : S 
OR.COMPONENT(2)=big.red.eyes  —- 
AT.FACTOR.FOR.OR. COMPONENT (2)=.8 
GOSUB Compute. or.clause.cf 
GOSUB Deduce 
RETURN 












Prove. bird.and.cannot.fly.and.dark.feather 
current.fact=bird.and.cannot.fly.and.da 
GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Prove.bird 
GOSUB Prove.cannot.fly 
GOSUB Prove.dark.feathers 

number.of.and.clause.components=3 
AND .COMPONENT(1)=bird 
AND .COMPONENT(2)=cannot.fly 
AND. COMPONENT (3) =dark.feathers 

at.factor.for.and.clause=1 

GOSUB Compute.and.clause.cf 

GOSUB Beauee 
RETURN 





Example 4: Emu-proving routines for compound case 
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So much for the emu subroutine. 

As for the other subroutines that 
Prove.emu: calls, you already have 
those that attempt to prove that the 
animal is a bird and cannot fly, but 
you need two subroutines to prove 
that the animal has dark feathers and 
big red eyes. These are both termi- 
nals (they don’t have to call other 
parsing subroutines—they just ask 
the user a question), so they are easier 
to write. First, you add this new set of 
DATA statements near the top: 


DATA 38,has dark feathers 
dark.feathers=38 


DATA 39,has big red eyes 
big.red.eyes=39 


Having done this, you scroll to the 
bottom of the program and add two 
subroutines: 


Prove.dark.feathers: 
current.fact =dark.feathers 
GOSUB Test.fact.for.human.input 
IF leave= yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.big.red.eyes: 
current.fact=big.red.eyes 
GOSUB Test.fact.for.human.input 
IF leave= yes THEN RETURN 
GOSUB Deduce 

RETURN 


That’s it. 

By writing some templates of vari- 
ous sizes for the subroutines handling 
ANDs and ORs, you can copy them as 
needed and quickly assemble a My- 
CIN-like expert system running under 
the Amiga BASIC (Microsoft BASIC) in- 
terpreter. The system currently can 
handle rules with clauses having 12 
ANDs, 12 ORs, or a combination of 
both. You can change this easily by 
redimensioning the AND.COMPO- 
NENT, OR.COMPONENT, and_ AT.FAC- 
TOR.FOR.OR.COMPONENT arrays. 

You might experiment by inserting 
additional subroutines that perform 
other mathematical tests outside the 
MYCIN environment (go ahead, it’s 
OK—most mathematicians think My- 
CIN’s mathematical reasoning is pret- 
ty ad hoc anyway, even though it has 
been known to outperform experts, 
which isn’t saying much for ex- 
perts!). You might also consider add- 
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ing subroutines allowing the pro- 
gram to explain how a certainty 
factor was reached after the conclu- 
sion of each fact by listing the certain- 
ty factors passed up from those 
below it in the AND/OR hierarchy. 
Long names have been used to 
identify the subroutines and _ vari- 
ables only in an effort to make the 
program ’s flow of control under- 
standable. By shortening these con- 
siderably, you should be able to fit 
hundreds of rules in an Amiga with 
512K of memory. Alternatively, 
Amiga BASIC allows you to set up de- 
ductive routines as separate pro- 


ee, Se es aS ied Rs > 


BR oR Sos Sc 


grams that can be called as overlays 
when needed by the top-level rou- 
tines, then deleted. The only precon- 
dition is that a called program has to 
be saved as an ASCII file (SAVE “file- 
spec”,A) or else a “‘bad file mode’”’ er- 
ror message appears. 

You can call a secondary program 
with: 


CHAIN MERGE “‘filespec”’, 
[expression],ALL,DELETE range 


The ALL assures that all variables are 
shared between the main calling pro- 
gram and the called program, a fea- 


C the Advantage. .. 


: 
MS-DOS as 
Progranomes's 





‘ e. : * _ a. a x xX 3 9 
Se 


% ~e > . 
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There's never been a better time to buy Lattice C. Professional 


programmers the world over have made Lattice C the standard 
compiler for serious MS-DOS programming. Our compiler fea- 
tures include: ANSI language constructs including, unsigned 
as a modifier, void data type, enum data type, structure assign- 
ments, structure arguments, structure returns, and argument 


type checking. 


The library contains more than 200 new functions, including: 


ANSI/UNIX/XENIX compatibility; extended support for MS-DOS; 
extended support for networking including file sharing, file 
locking, and I/O redirection; and flexible error handling via user 
traps and exits. Plus the library has also been re-engineered 
to produce much smaller executables. 

Try the new Lattice C-Compiler. Because C-ing is believing. 


S27 
Qe 





ee 
Lattice 


INTERNATIONAL SALES OFFICES: 


312/858-7950 


Lattice, Incorporated 
P.O. Box 3072 
Glen Ellyn, Illinois 60138 


TWX 910-291-2190 


Benelux: Ines Datacom (32) 2-720-51-61 Japan: Lifeboat Inc. (03)293-4711 
England: Roundhill (0672)54675 France: SFL (1)46-66-11-55 


Germany: (49)7841/4500 


(49 )8946/13290 
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The fastest, tightest code. 


The new Mj oe 





(Though the same can hardl 
pen of the name) , 


We have to tell you, we hada hard smallest, fastest FORTRAN code a 
time getting the name down this short. PC can handle. 
Because Microsoft’snew FORTRAN aq yprns oft’s FORTRAN Opti- 


Compiler actually has a far longer mizing Compiler generates such 
list of features. a0 fast code that an IBM PC/XT 
It uses the same optimizer and approaches the speed of the VAX.” 
code generator technology that made Peter Osgood, MIT, Project Athena, Director ofthe 
our C Compiler the industry leader. ie 
And we've also added special This compiler has already passed 


loop optimizations that give you the _ the toughest test there is. It's been 





Microsoft FORTRAN Optimizing Compiler Version 4.0. 


¢ Uses the Microsoft C optimizing technology, plus loop optimization to @ Microsoft CodeView: Window-oriented source-level debugger. NEW! 
generate the fastest executable code for MS-DOS. NEW! — Debug using your original source code, the resulting disassembly or 

Execution Speed = Microsoft Ryan-McFarland — IBM Professional both intermingled. 

(in Seconds) peo See Sst eee oa — Watch and change the values of your local and COMMON variables 

=.= V, a. = : 

Sieve 7.97 9.33 38.51 Best pedo. 8 7 : 

Whetstone 53. a2 58 67 ger : ne oe ; reakpoints on variables, expressions or memory; trace 
okup 82 18.61 26.02 icroso 

¢ Fully GSA certified for ANSI 77 ibility wi — Debug Microsoft C programs as well as Mi 

. cco rae Se ee res a te Hee fost registers and flags as oa ee 

umerous and DEC VAX extensions. ' — Easily debug graphics oriented ‘Si 
ensions. NEW! separate from debugger cute ee ar eee 


GSA-certified as Full ANSI FORTRAN 
77, and 100% error-free. 


“The Microsoft FORTRAN Opti- 

mizing Compiler let us port the 

200,000 line Boeing Mathematical 

Library (BCSLIB) with virtually no 

changes. This ANSI FORTRAN 77 

code was ported directly from Cray, 
~ CDC, DEC IBM and other main- 


frames and workstations.’ 


Ivor Philips, Boeing Computer Services, Program Manager 
Mathematical Software Libraries. 


We've also included the same 
advanced intrinsic math 














improvements 


like our new HUGE 
memory model, and porting the 
biggest mainframe programs has 
never been easier. 

Among the many additions we’ve 
made to our package is our exclusive 
CodeView™ windowing debugger. 

It lets you trace through programs 
at any level you want, from source 
code to assembly language. 





# Medium, Large and Huge Memory Model Libraries. NEW! 

Mix models with NEAR, FAR and new HUGE pointers. 

# Common blocks and arrays greater than 64K. 

¢ Choose from three math libraries and generate in-line 8087/80287 
instructions or floating point calls: 
—floating point emulator (utilizes 8087/80287 if installed) 
—8087/80287 coprocessor support 
—alternate math package—extra speed without an 8087/80287 © 

@ Link your FORTRAN routines with Microsoft C (v. 4.0 or higher), Microsoft 
Pascal (v. 3.3 or higher) or Microsoft Macro Assembler. 

¢ Largest number of 3rd party support libraries available. 
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“FORTRAN 4.0” for short.) 


You can open windows and watch 
both variables (local and COMMON) 
and CPU registers change. 

You can set conditional breakpoints 
using variables and expressions. 

Debugging gets even easier with 
the compiler’s advanced diagnostics. 
Detailed error messages are 
thoroughly explained and cross- 
referenced in our new manuals. 

Documentation that has been 
completely revised and expanded 
with tons of examples. 

If we're talking your language, use 
one of the numbers below for more 
details about the Microsoft® ANSI 
FORTRAN 77 Optimizing Compiler 
Version 4.0 with CodeView, 
wand the name of your 
nearest dealer. 

a (Even if the call’s toll-free, 
it may be a good idea to refer to it as 


Microsoft’ FORTRAN 
The High Performance Software. 


Call (800) 426-9400. In Washington State or Alaska, (206) 882-8088. In Canada, 
(416) 673-7638. 


Microsoft and MS-DOS are registered trademarks and CodeView is a trademark of 
Microsoft Corporation. IBM is a registered trademark of International Business 
Machines Corporation. VAX isa registered trademark of Digital Equipment Corporation. 
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¢ Provides more detailed diagnostic error messages (almost twice as many 
as competitors) and extensive documentation with non-ANSI 77 fea- 
tures highlighted. NEW! 

¢ Proven reliability—tested with over 2.5 million lines of code compiled 
and executed. 

¢ MS-DOS* network support with file / record locking and sharing. 

# Microsoft Program Maintenance Utility rebuilds your applications 
after your source files have changed. NEW! 

Other utilities including faster overlay linker (links over 1Mbyte object _ 
code), library manager, e compression utility, EXE file header 
utility, MS-DOS environment setting utility and setup utility. 









ANNOUNCING ... . High performance 
APL Interpreter using MC68000 32 bit 
coprocessors and NS32081 floating point 
processors totally integrated with DOS and 
Novell Netware hardware and software 
environment. MultiAPL coprocessors offer 
1MB or 4MB RAM for large APL work- 
spaces and the fastest processing facilities 
available under DOS or Netware. 


MurnAPL 


EXPLORE 


e Full component multi-user file system 
¢ Btrieve file interface 

e Norestrictions on object size 

e Shared variable interface 

e Uses standard DOS files 

e Overlays (functions/variables) 

e 10 & 12 MHZ coprocessors available 

e Extended superset of IBM’s VSAPL 

e APL*PLUS conversion utilities 

e Full screen facilities included 

e Enhanced version of APL.68000 

Run time versions available 


COMPARE 


BY TE Magazine 
Calculations Benchmark 
Double Precision Numbers 
(All systems with one user) 



















Fortran 
VAX-11/780 


MultiAPL V6.0 
LBM AT 


STSC V5.2 
APL *PLUS PC 
1BM AT/80287 










MultiAPL V6.0 
1BM PC 








STSC V5.2 
APL *PLUS PC 
1BM PC/8087 





' ‘ i '] 
0 Seconds 


INTRODUCTORY OFFER 
$995 


GOOD THRU 4/30/87 
INCLUDES: APL INTERPRETER 
AND REFERENCE MANUAL, 10 MHZ 
COPROCESSOR WITH 1 MB RAM, 
(No Wait State) 

Optional Math Processor $295 
Order direct for $995 + Shipping/handling 
($18 US, $20 Canada) VISA/MC/AMEX add 4%. 
Certified check, MO, COD. OFFER GOOD IN 
U.S. AND CANADA ONLY. 


30 DAY MONEY BACK GUARANTEE 


SPENCER 


ORGANIZATION, INC. 
P.O. BOX 248 WESTWOOD, N.J. 07675 
(201) 666-6011 


Btrieve is a trademark of Softcraft, Inc. 
APL *PLUS is a trademark and service 
mark of STSC, Inc. 
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ture that this kind of system requires. 
Using this technique in conjunction 
with a hard disk enables you to con- 
struct an expert system with thou- 
sands of facts and rules. 

Such disk-intensive software 
would probably be quite slow, so the 
best thing to do is to keep the whole 
program in memory by shortening 
the variable and label names. Remov- 
al of the Delay: subroutine will also 
speed things up, showing how inter- 
preted BASIC can hold its own against 
interpreted LISP, at least under these 
circumstances. Still, I’m waiting for 
the Amiga BASIC compiler to appear. 
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WINDOWS FOR DATA" 





The first choice 
of professional 
C programmers 











“Windows for Data is the best 
programming tool I’ve ever used. 
It’s the most flexible I’ve seen. 
Whenever I’ve wanted to do something, 
I've been able to find a way” 


Professionals choose our tools because 
they are designed, crafted, and supported 
for professionals. Here at Vermont Creative 
Software, we understand that performance 
and pleasure in programming derive 
from more than a long list of functions. 
Windows for Data provides: 


PROFESSIONAL FLEXIBILITY: 
Our customers repeatedly tell us how 
they've used WFD in ways we never imagin- 
ed - but which we anticipated by designing 
WFD for unprecedented adaptability. Vir- 
tually every capability and feature can be 
modified to meet special needs. You will be 
amazed at what you can do with WFD. 


PROFESSIONAL PERFORMANCE: 
Screen output is crisp and fast. Windows, 
menus, and data-entry forms snap up and 
down from the screen. WFD is built upon 
and includes Windows for C, the win- 
dowing system rated #1 in speed and 
overall quality in PC Tech Journal (William 
Hunt, July 1985). 


PROFESSIONAL RELIABILITY: 
An unreliable tool is worse than no tool at 
all. VCS products are known in the industry 
for their exceptional reliability. Ask anyone 
who owns one. 


PROFESSIONAL DOCUMENTA- 
TION: Over 600 pages of documentation 
provide step-by-step explanations for each 
major application, a reference page for each 
function, listings of functions alphabetical- 
ly and by usage, and a fully cross-referenced 


Steven Weiss, 
Stratford Systems 


index. Extensive tutorials and demonstra- 
tion programs assist learning. 


PROFESSIONAL TECHNICAL 
SUPPORT: The same expert program- 
mers that develop our products provide 
prompt, knowledgeable technical support. 


PROFESSIONAL PORTABILITY: 
High-performance versions of VCS 
products are available for XENIX, 
UNIX, and VMS, as well as DOS. No 
royalties on end-user applications. 





OUR CHALLENGE AND 
GUARANTEE 

If you have an application where no 

other tool can do the job, try Windows 

for Data. If it doesn’t help you solve 

your problem, RETURN FOR A FULL 

REFUND. YOU MUST BE SATISFIED. 


Ask for FREE DEMO DISKETTE 







Vermont 


Creative 
Software 
21 Elm Ave. 


Richford, VT 05476 
Telex: 510-601-4160 VCSOFT 


Tel.: 802-848-7738 


Prices: PCDOS* $395; XENIX, VMS, UNIX Call. 
*PCDOS specify C compiler. 





Circle no. 157 on reader service card. 


WINDOWS FOR DATA 


for DOS, UNIX, VMS ... 
The complete windowing data entry, menu, 
and help system that does the hard job 
others can’t — we guarantee it! 


Pop-up data entry windows; field types for 
all C data types, plus decimals, dates, and 


times; auto conversion to and from strings 


for all field types; system and user supplied 
validation functions; range checking; re- 
quired, must-fill, and protected fields; free- 
form movement; multiple-choice field entry; 
scrollable sub-forms. Branch and nest win- 
dows, forms, and menus. 


Complete context-sentitive help system 
with pop-up windows and scrollable text. 


Pop-up, pull-down, scrollable, and Lotus- 
style menus. 


NEW FOR DEBUGGING: Exclusive 
VCS Error Traceback System auto- 
matically identifies the location and 
cause of program errors. Eliminates the 
need to code error checks on all function 
calls! VCS Memory Integrity Check- 
ing helps catch those hard-to-detect, 


memory-corruption errors. 


NEW FOR ERROR HANDLING: In- 
stall your own error handler to be called 
whenever a function detects an error. 


NEW FORM LAYOUT UTILITY sim- 
plifies form design. 
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THE PROGRAMMERS SHOP 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 


RECENT DISCOVERY 


Turbo Expert by Thinking 
Technologies - Menu driven expert 
system generation package details 
reasoning, comes with tutorial, 
manual, demos. “Corporate” supports 
up to 4000 rules. “Startup” up to 
400. Corporate $359, PC Startup $129 


Al-Expert System Dev t 


Arity System - use with C MS $ 259 
Auto-Intelligence PC $ 749 
Experteach - Powerful, samples PC $ 349 
Exsys Pe > 309 
Runtime System PC $ 479 
Insight 2+ MS $ 379 
Intelligence/Compiler PC $ 749 
SQL Dev’t Package MS $ 259 
Texas Instruments: 

PC Easy PC $ 439 

Personal Consultant Plus PC $2599 


Microsoft MuLisp 85 MS $ 179 
PC Scheme LISP - by TI PC 3... 85 
TransLISP - learn fast MS Call 
TransLISP PLUS 
Optional Unlimited Runtime $ 150 
PLUS for MSDOS S479 


Others: IQ LISP ($155), IQC LISP ($269) 


Al-Prolog 
APT - Active Prolog Tutor - build 
applications interactively PC... Cail 


ARITY Standard - full, 4 Meg 
Interpreter - debug, C, ASM PC $ 309 
COMPILER/Interpreter-EXE PC $ 699 
With Exp Sys, Screen - KIT PC $1129 


Standard Prolog MS $ 79 
MacProlog Complete MAC §$ 295 
MicroProlog - intro MS $ 85 
MicroProlog Prof. MS $ 339 
MPROLOG P550 PC. $ 175 
Prolog-86 - Learn Fast MS $ 89 


Prolog-86 Plus - Develop MS $ 229 
TURBO PROLOG by Borland PC $ 69 


Al-Other 


Q’NIAL - APL with LISP. PC $ 349 
Smalltalk-80 - Xerox improved PC $ 995 
Smalltalk/V-graphics PC. $.- 89 


AtariST & Amiga 


Manx, Lattice, & Metacomco. Call 
Amiga - LINT by Gimpel Amiga $ 79 
Cambridge LISP Amiga $ 200 
Lattice C ST, Amiga $ 139 
Lattice Text Utilities Amiga $ 75 
Megamax - tight, full ST $ 200 


FEATURES | 


r-tree - report generation for 
ctree. Multiple file handling, fixed or 
variable length. Many built-in functions 
like Boolean, computational functions, 
string, date handling, numeric to 
string conversion. Source inC. PC $ 249 
Advantage C + + - Object-oriented 
enhancements for most major C 
compilers also maintain compatibility 
with existing C code. Write reusable 
casily maintainable codc, develop 


large applications with fewer bugs. Call 





We support MSDOS (not just compatibles), 





Basic Development System PC $ 105 
Basic Development Tools by 


Sterling Castle MSS? 
Basic Windows by Syscom PCS. 95 
BetterBASIC PES 129 

8087 Math Support ee eB 

Run-time Module PC $ 169 
Better Tools - for Better Basic PC $ 95 
CADSAM FILE SYSTEM-full MS $ 69 
Finally - by Komputerwerks PC $°<85 


GoodBas - maintain code Pes. - 95 
LPI Basic - MS compatible UNIX $1100 
Prof. Basic - Interactive, debug PC $ 75 


8087 Math Support PC $ 45 
QuickBASIC PC $ 69 
TRUE Basic - ANSI BS HS 


Run-time Module 
Turbo BASIC - by Borland 


(Ofe} ele) 


Macintosh COBOL - full 
MBP - Lev. II, native 





MAC $ 459 
MS $ 819 


Microfocus Professional Cobol PC $2295 

VS Workbench PC $3379 
Microsoft COBOL MS $ 439 
Microsoft Cobol Tools PC $ 209 
Realia - very fast MS $ 819 


Ryan McFarland COBOL MS Call 
COBOL-8X MS Call 
Screenplay-by Flexus. 
Interactive screen mgmt. PC $ 175 
sxeolhcola-mielmeageleie-ianiaaliare 
BRIEF Programmer’s Editor PC Call 


EMACS by UniPress Source: $929 $ 299 
Epsilon - like EMACS, full 

C-like language for macros. PC $ 155 
KEDIT - like XEDIT PC $ 99 
Lattice Screen Editor - multiwindow, 


multitasking Amiga $ 89 MS $ 109 
Micro Focus Micro/SPF Pe 349 
PC/EDT - macros PC $ 250 
PC/VI - by Custom Software MS $ 109 
Personal REXX is ies Se 
PMATE - power, multitask PC $ 119 
SPF/PC - fast, virtual memory PC $ 139 
Vedit MS $ 107 
Vedit PLUS MS $ 139 


(Om Ea) 0) a=] alse Ove lnnlanlelalior-helelars 


Asynch by Blaise PC 3-335 
Essential Comm Library PC $ 135 
With Debugger PC $ 199 
Greenleaf Comm Library eS 129 


Multi-Comm - add multitasking, use 
w/Multi-C PC $ 149 





PCDOS, Xenix-86, CPM-80, Macintosh, AtariST, and A 


RECENT DISCOVERY 


VXM by Command Technologies - 
Allows intelligent program control 
sharing by different environments 
like PCDOS-V AX. “Software Robots” 
use resources as needed, convert 
formats automatically, transmit data. 
Innovative mini-micro integration. PC Call 


On W-TalelUrsle[-maOrelanl ellie 
AZTEC C86 - Commercial PC $499 


Datalight C - fast compile, good code, 
4 models, Lattice compatible, Lib 


source. Dev’rs Kit PC $- 7] 
Datalight Optimum - C MS $ 99 
with Light Tools by Blaise PC $168 
Lattice C - from Lattice MS $275 
Mark Williams - w/debugger MS $369 
Let’s C Combo Pack PC $ 99 
Let’s C PC $ 59 


Microsoft C 4.0- Codeview MS $279 
Uniware Cross Assemblers MS $249 


Cross Dev’t Tools MS Call 

Rex - C/86 by Systems & 
Software - standalone MS $695 
Wizard C MS $359 
Rom Development Package MS $299 


(Om U-Taloler-lel-palahi-igele(ae- 


C-terp by Gimpel - full K & R MS $229 
C Trainer - by Catalytix 
INSTANT C - Source debug, 
Edit to Run-3 seconds, .OBJs MS $379 
Interactive C by IMPACC Assoc. 
Introducing C-self paced tutorial 
Run/C Professional 
Run/C Lite 


C Libraries-General 


Blackstar C Function Library PC $ 79 


C Essentials - 200 functions ig Salah ay 
C Function Library MS $119 
C Tools Plus (1 & 2) - Blaise PC $135 
C Utilities by Essential PC 3137 


C Worthy Library - Complete, machine 
independent MS $249 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 
Greenleaf Functions-portable, ASM $139 
LIGHT TOOLS by Blaise PC $ 69 


C Libraries-Files 


FILES: C Index by Trio - full B + 
Tree, vary length field, multi compiler 
/File is object only MS $ 89 
/Plus is full source MS $319 
CBTREE - Source, noroyalties MS $ 99 
CTree by Faircom - noroyalties MS $319 
rtree - report generation . PC $249 
dbQUERY - ad Loc, SQL-based MS $159 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 


Object only - MS C, LAT, C86 $145 
Source - Single user MS $399 
Source - Multiuser MS $799 
dBx - translator MS $315 
w/source to library MS $349 


Sapiens V8 - virtual memory management 
for C programmers on PC’s provides 
8M workspace, 64-bit emulation, 
virtual stack library and heap. 
Link to MS, Lattice, Aztec. 


PC $300 
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THE PROGRAMMERS SHOP 


provides complete information, advice, guarantees and every product for Microcomputer Programming. 


dBASE and SUPPORT 


Extend your dBASE programming power with FAST 


code, LAN power, and the FLEXIBILITY of C. These 


tools create a more productive environment. Call our 
specialist TODAY. 


C Support-Systems 


Basic-C Library by C Source PC $139 
C Sharp - realtime, tasks. PC $600 
C ToolSet - DIFF, xref, source MS $ 95 


The HAMMER by OES Systems PC $149 
Lattice Text Utilities MS $ 89 
Multi-C - multitasking PC $149 
PC LINT-Checker. Amiga $89 MS $ 99 


Quickshell - script compiler PC $349 
Pfantasy Pac - by Phoenix PC $849 
Pre-C - Lint-Like MS $155 


Programmer’s Extender, Vol. I MAC $ 79 
SECURITY LIB-add encrypt to MSC, 
C86 programs. Source $229 PC $115 





Time Slicer - R/T PC $265 
C-Screens. Windows. Graphics 
C Power Windows by Entelekon PC $109 
dBASE Graphics for C PC $ 69 
C-Scape - capture Dan Bricklin PC $179 
Curses by Lattice PC $ 89 
ESSENTIAL GRAPHICS - fast PC $199 
GraphiC - mono version PC $209 
GraphiC - new color version PC $285 
Greenleaf Data Window PC $159 
w/source PC $319 
Multi-Windows - use w/ Multi-C PC $295 
Screen Ace Form Master PC $195 
Vitamin C - screen I/O PC $199 
Windows for C - fast PC $149 
Windows for Data - validation PC $239 
ZView - screen generator MS $175 
Debuggers 
386 Debug - by Phar Lap PC $149 
Breakout - by Essential PC $ 89 
CODESMITH - visual PC $ 99 
C SPRITE - data structures PC $129 
DSD87 - by Soft Advances PC $ 79 
Periscope I - own 16K PC $239 
Periscope II - Reset Box PC $109 
Periscope II-X - software only PC $ 85 
Pfix-86 Plus - by Phoenix PC $229 
Showcase - test software PC $135 
SoftProbe II - by Systems & Software, 
embedded systems PC $695 


FEATURE 


The Documentor - for dBASE program 
flow chart, tree diagrams, .DBF documen- 
tation, variable/field concordance, 
hierarchy charts. Macros, searches, 
configure options. MS $295 






HOURS 


8:30 AM - 8:00 PM EST. 





dBASE Ill Lan Pack 
dBASE Tools for C 
dBC Isam by Lattice 
dBXL Interpreter 

by Word Tech 
Genifer by Bytel 
QuickCode for III Plus 
QuickSilver by Word Tech 





Order before 4/30/87 and mention this ad 
for these special prices: 


$995 $649 
$:90 $ 75 
$250 $199 


List Normal SPECIAL 
$609 


$ 59 
$159 


$169 
$395 
$295 
$599 


$139 
$299 
$249 
$499 
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50:More FORTRAN PC $ 99 
ACS Time Series MS $399 
Forlib+ by Alpha MS $ 59 
MACFortran by Microsoft MAC $229 
MS Fortran - 4.0, full 77° MS $299 
No Limit - Fortran Scientific PC $115 
PC-Fortran Tools - xref, pprint, 

screen PC $179 
RM/Fortran MS Call 
Scientific Subroutines - Matrix MS $139 
Statistician by Alpha MS $249 


Strings and Things - register, shell PC $ 55 


WOLD Gi retake [Ur-le [move] o) olelai 





BTRIEVE ISAM MS $199 
BTRIEVE/N-multiuser MS $465 
Flash-Up Windows nC.3.79 
GSS Graphics Dev’t Toolkit | PC $375 
HALO Graphics PC $209 
I/O Pro - screens, full char. PC $349 
Informix - by RDS PC $639 


Informix 4GL-application builder PC $799 
Informix SQL - ANSI standard PC $639 


Opt Tech Sort - sort, merge MS $115 
PANEL - MS $215 
Pfinish - by Phoenix MS $229 
PolyLibrarian by Polytron MS $ 79 


PolyBoost - speed I/O, keyboard PC $ 69 


PVCS Version Control MS $329 
QMake by Quilt Co. MS $ 84 
Rtrieve - Xtrieve option MS $119 
Screen Sculptor PC $ 95 
SRMS - source control MS $109 
Xtrieve - organize database MS $199 


ZAP Communications - VT 100 PC $ 89 


axe Es{or- | sale mele] eo) lela clare, 


ALICE - learn Pascal PC $ 68 
Exec - Chain Programs MS $ 79 
MetaWINDOWS- graphics toolkit 


bit-mapped, fast PC $115 
MetaWINDOWS PLUS PC $185 
Microsoft PASCAL - faster MS $189 
Pascal Extender MAC $ 65 
Pascal Pac with Tidy - formatter, 

utilities PC $ 69 
Pascal Tools PLUS PC $139 
Pascal 2 - by Oregon Software, 

tight, fast MS $329 
TurboHALO - 150 routines PC $105 


Circle no. 133 on reader service card. 


800-421-8006 


THE PROGRAMMER'S SHOE 


5-M Pond Park Road, Hingham, MA 02043 
Mass: 800-442-8070 or 617-740-2510 2/87 





Call for a catalog, literature, advice and service you can trust 


RECENT DISCOVERY 


F2C by Solution Systems - Fortran 
66 or 77 toC. No max program size 








$3000. Pioneer. 1000 line max: $ 795 
@} tal -1 a Wr laleler-le[-1- 
APL*PLUS/PC PC $ 429 
CCS Mumps - Singleuser PC 50 


CCS Mumps - Multiuser PC $5369 
Lattice RPG II Compiler Pe S749 
MasterForth - Forth 83 MACorPC $ 109 
Microsoft MASM - faster MS 98 
Modula-2 - by Pecan MS 


Modula-2/86 by Logitech 
Pasm - by Phoenix MS 
PC Forth + -byLab. Micro. PC 
SNOBOL4 + - great for strings MS 
UR/Forth MS 


Xenix/Unix 


Pie AAAAAAH 
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Basic - by Microsoft $ 239 
C-Terp by Gimpel Software $ 449 
Cobol - by Microsoft $ 639 
Cobol Tools - by Microsoft $ 319 
Fortran or Pascal - by Microsoft $ 439 


MicroFocus Lev. II Compact COBOL$ 795 


Panel $ 539 
RM/Cobol Call 
RM/Fortran Call 
Xenix Complete System $1049 





O)ialsia caaeleltlonts 


386 Assembler/Linker PC: Gall 
ASMLIB - 170+ routines PC $ 129 
asmTREE - B +tree filemgmt. PC $ 369 
BSW Make - like UNIX make MS §$ 85 
Compact Source Print PC $ 59 


Dan Bricklin’s Demo Program PC $ 59 
dBrief - Customize BRIEF for dBASE 

development. with BRIEF $275. PC $ 95 
dFlow - .PRG diagram MS $ 149 
Help/Control - on line help PC $ 109 
Interactive Easyflow-HavenTree PC $ 129 
Link & Locate - tools to work with 

Intel and Tektronix projects. MS $ 
LMK - like UNIX make 
Microsoft Windows 

Software Development Kit 
MKS Toolkit - Unix, vi, awk 
Numerical Analyst by Magus 
PDisk - cache, tree 
PLink - 86 PLUS - overlays 
PMaker - by Phoenix 
Polymake by Polytron 
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PolyShell by Polytron MS $ 119 
PolyXREF by Polytron PC 99 
Sapiens V8 - 8M virtual mgr. PC $ 300 
Synergy-Create user interfaces MS $ 375 
Taskview - by Sunny Hill 

Software, ten tasks PC 32 
Tom Rettig’s Library- dBASE PC 89 
Tree Diagrammer EA. 59 
Visible Computer: 8088 PC 65 


Note: Mention this ad. Some prices are specials. Ask about COD 
and POs. Formats: 3” laptop now available. plus 200 others. UPS 
surface shipping add $3/item. All prices subject to change without 
notice. 





“We at Sunspot are thrilled to know that there is a 

store that can cut through all the “bull”, and find 

us the products that most computer stores know 
nothing about. Keep up the good work.” 

— Arland Hensler 

Sunspot 








Fortran Support 


for Listing One (Text begins on page 16.) 
IBM PC/XT/AT & Compatibles fidefine PGM ID “SILOAM CI-C86 Ver. of 11/22/86 for PC-DOS 2.x+" 





~ 
% 


An Adaptive Template Matching Image Categorizer 


Versions Available For: (An Experimental Computer Vision Program) 
Microsoft, Supersoft, RyanMcFarland, 


IBM Professional, Lahey, & IBM 


Fortran. 
Forlib-Plus 
$69.95 


Supports graphics, interrupt driven com- 
munication, program chaining, and file 
handling/ disk support. A Fortran coded 
subroutine is included which will plot data 
on the screen either in linear/linear, log/ 
linear, linear/log, or log/log on the appro- 
priate grid. 


Strings & Things 
$69.95 
Supports string maipulations, command 
line usage, DOS call capabilities, SHELL 


generation and data transmission, BATCH 
file control, music generation, PEEKS and 





This program implements a trainable pattern classifier as 
a committee network of threshold logic units. It learns to 
recognize patterns by being trained from a set of prototype 
patterns presented in a training file. The training file is 
organized as a set of visual images represented as an orthogonal 
array of picture elements, or pixels. Each pixel is a number 
representing the gray-scale value of that point in the image. 
Associated with each pattern is a number, or tag, that 
represents the category to which that pattern belongs. 


R. J. Brown 

Elijah Laboratories International 

5225 N.W. 27th Court 

Margate, FL 33063 

(305) 979-1567 
Ownership: I hereby place this program in the public domain. 
System: Red River ATlas 10 MHz 80286 IBM-PC/AT clone 


Compiler: C86 Version 2.30H; Computer Innovations, Inc. 


+ + + + & + HH HH HH HH HH HH HH HH HF H HF HF HF HF H HD H 


; “7 
POKES, PORT access, and general register 
manipulations. #include “stdio.h" /* needed for stream input/output */ 
For- Wind 
or- Inds #define FALSE 0 /* boolean constant for ‘false' ast 
#define TRUE !' FALSE /* boolean constant for ‘true’ ei 
89.95 
Gives the Fortran programmer the capa- #define NULL ((int *)0) J® the polnteeste aes - 
bility of generating up to 255 windows on 
the screen. Each window can be individually #define void /* function that returns no value */ 
scrolled, moved, sized, generated, and 
removed. Both color and monochrome type #define forall (index, limit) \ 
displays are supported. Full source code is for ( (index) =0; (index) < (limit) ; (index) ++) /* looping word “7 
supplied for customization. iditice Saautianetess: 3 
: 7 case (id): { \ 
ACS Time Series ec : 
$495.00 break 
This is a COMPLETE time series analysis /* shorthand form for case statement i 
package which contains VERY HIGH #define u(x) ((unsigned) (x) ) /* shorthand for ‘(unsigned)' cast sa 
SPEED FFTs, Filter generations, convo- 
lutions, transfer function calculations, auto typedef unsigned char byte; /* an 8-bit byte of storage */ 
and cross spectra calculations, Cepstrum, typedef unsigned int word; /* a 16-bit word of storage */ 
curve fitting algorithims, coherence calcu- 
lations, and many other associated routines. typedef word boolean; f* a Gopiei an. Sarl eblGy : 
. . *x a £ 
The price includes FULL source code. true’ or ‘false value only */ 
e e e = * 
] ntific typedef ELTYPE element; /* an element is a real number / 
Fortran Sc € typedef DOTYPE DOT; /* type of a dot product may be bigger! */ 
Subroutine Package typedef element ‘vector; /* a vector is a set of elements */ 
$295.00 typedef vector tia; /* a tlu is a vector */ 
There are approximately 100 Fortran sub- 
routines included which fall under the typedef struct { /* the collection of */ 
following 12 categories: tlu *wtpt; /* a set of tlu weight points, st 9 
1) Matrix storage and Operations 2) DOT *dot; /* and dot product save cells aa f 
© * 
Correlation and Regression; 3) Design Samet air: (< 2e ee ee 4 
Analysis (ANOVA), 4) Descriminant Anal- typedef char *pointer; /* a general pointer to whatever... */ 
ysis, 5) Factor Analysis, 6) Eigen Analysis, 7) 
Time Series, 8) Nonparametric Statistics, 9) 
Distribution Functions, 10) Linear Analysis, [RE KRKKEEKRKEKEKKREKREKKREE KEE ERE KKEK KKK KEKKKKREKREKEEKKKEKEEKEKKKKKEKKKKKKKKKKKK 
11) Polynomial Solutions, 12) Data 4 
Screening. Full source code is included. z Global Variable Definitions 


* 


rr ALPH \ RRR ERE KR REE KEKE KERR KEKE KREREKEEEKKEKREKKKKKEKKKKKKKRKEKKKKEKKEEK / 


COMPUTER 


peor ae FILE *pat, /* the input training pattern file */ 

ALPHA COMPUTER SERVICE *fopen(); /* the file opener */ 
5300 ORANGE AVENUE SUITE 108 byte patname [64], /* ascii filename of input file */ 
¥ ; * £ 5 i * 

CYPRESS, CALIFORNIA 90630 index () /* string search library function / 


(714) 828- 0286 
California Residents 


Include 6% Sales Tax There are NO license fees 


Circle no. 321 on reader service card. 
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int ncom, /* number of committees in the network */ 


patwide, /* pattern width in pixels aid 
pathite, /* pattern height in pixels a/ 
pats_so far, /* how many patterns in file so far 27 
pats missed, /* how many patterns were mis-recognized so far */ 
missed, /* # of patterns missed on this pass at 
tlus_ trained, /* how many tlu‘s have been adjusted so far of 
npass, /* number of current pass thru pattern file ef 5 
log level, /* level of detail for run-time logging */ 
dim, /* number of elements in a vector (dimension) «/ 
ntlu, /* number of tlus per committee */ 
corr incr, /* fixed increment correction constant ay 
*vyote; /* pointer to vote count array sl 

boolean goofed, /* mis-recognition indicator for training loop */ 
start _over, /* select start over on error training strategy */ 
absolute, /* flag for absolute correction training method */ 
*decsn, /* pointer to network's decision array */ 
*class; /* pointer to class (category) array *7 

DOT patmag; /* pattern magnitude (used for training) */ 

element fraction, /* correction fraction for training =f 
maxel=0; /* maximum element in a weight point a 
radius; /* average radius (distance from origin) 


* of tlu weight point at initialization */ 
vector pattern; /* pointer to current input pattern of 


committee *net; /* pointer to network as an array of committees */ 


[ RRR REK ARERR EEEEKEEEKEEKREKKKEKKKEKEEKEKEKKEKEKEEKEKKEEREKKEHKEKKKEKKKKEKEKKEKKEKE 
x 


* Library Routines 


* 


KRRKKKKKKEKKEKKEKKEREEEKKREKEKEEKEKKEKKKEKKEKEKEKKEKEEKEKKKKKKEKKKKEKKEKEKKKKKK / 


extern float atof(); /* ascii to float library conversion routine =f 
extern double sqrt(); /* square root library function */ 
extern pointer calloc();/* memory allocation library function “7 
extern long time(); /* benchmark timing routine s/ 


[RRR KEKEKREKEKREEEEKEKEERKEKKKEKEEKEEEKEKEKEKEKKEKKEEEKEKRKKKKKEKKKEKKEKKKKKKKE 
x 


* BANNER =-- Display Program tr. De 


* 


KKK KEKE KKK KEKE KEK KEK KEKE EK EEK KEK KEK KKK KEK KEK KEKEKEKEKKKKEKEKKKKEKKEKKEKKKKEK / 


void banner() { /* display program identification information */ 


printf (“\nts",PGM ID); /* Program Identification is #define‘'d 
* at top of source file */ 


printf ("“\nWritten by: R. J. Brown, Elijah Laboratories Intn'l"); 
printf("\nThis program is in the Public Domain.\n"); 


[BRK KI KKK KKK EK KIKI KEKE KEK EK KKK KEKE KEE ERE KEK KEKE KKEKKEKKKEKEEKEEKEE 
* 
4 HEL P Display Screen 
* 


HK HK KKK KKK KKK KKK KKK KK KKK KKK KKK KEK EKER EEE KEK EKKEEKEKKKEKKEKKEKKKKKKEKKEKE / 


void help() { /* some user friendly help for the uninitiated :! al 


printf("Simple Image Learning On Adaptive Machinery\n"); 
printf("An Adaptive Template Matching Image Categorizer\n") ; 
printf (“\n") 7 


printf (" R. J. Brown, Elijah Laboratories International\n") ; 
printf (" 5150 W. Copans Rd. Suite 1135, Margate FL 33063\n"); 
orint-£ (“\n"*}> 

printf ("usage: siloam <options> filename[.ext]\n\n"); 


printf("where: filename -- is the input pattern file.\n\n"); 
printf(“options: -r##.# -- gives initialization radius.\n"); 


printf (" -t## -- gives number of TLUs per committee.\n"); 
printf (“ -o -- start over on error, \n\n"); 

printf ("choose one: -i## -- fixed increment correction, ## = incr.\n"); 
printf (* -a -- absolute correction.\n"); 


(continued on next page) 
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Read what they’re saying about 
this new concept in prototyping 
and demo-making: 


“‘A winner right out of the 
starting gate. After you use 
DEMO once, you’ll wonder how 
you got along without it.” 

— PC Magazine, 4/29/86 


“‘Everybody who writes 
software, either commercially 
or for in-house applications, 
should immediately order a 
copy. Period. No exceptions.” 

— Softsletter, 4/20/86 


“Its low price, superb 
performance, and range of 
applications practically 
guarantee that it will be widely 
used. Four Floppy Rating (8.0)”’ 

— InfoWorld, 3/31/86 


‘“‘Apparently has a hit on its 
hands with ...a development 
tool for personal computer 
software that has won rave 
reviews from early users.” 

— Computerworld, 4/7/86 


“A gem.” 
— PC Week, 3/18/86 


Product of the Month 
— PC Tech Journal, 3/86 Ow 


Thousands of developers are de- 
signing better products faster and 
producing more effective demon- 
strations using Dan Bricklin's Demo 
Program. You can, too. Act now! 


ONLY $74.95 
617-332-2240 


Massachusetts residents add $3.75. Outside of the 
U.S.A. add $15.00. 

Requires 256k IBM PC/compatible, DOS 2.0 or 
later. Supports Monochrome, Color/graphics, and 
EGA Adaptors (text mode only). 





SOFTWARE 
GARDEN 


Dept. D 


PO. Box 373, Newton Highlands, MA 02161 


Circle no. 314 on reader service card. 
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Lint for MS-DOS 





Listing One (Listing continued, text begins on page 16.) 


printf (" -f£##.# -- fractional correction, ##.# is lambda.\n"); 
printf (" -1# -- logging level: O=least; 3=most.\n"); 
exit (0); 


[RRR KKK KKK KER KEK KKK EKER ERR EK KEK KKK ERE KEK ERK KEK KKKEKKEKEKHKKKKEKKKKKKKEK 
* 


* SIGN -- The $:.i-g rn 2 eat An Element +f/="1 


x 


RRR RRR RK KKK IK KKK KEK KKK KKK KK KKK KKK EK EEE KEKE KEKE KKREKKREKEKEKEK / 


int sign (x) /* return the sign of a number as plus or minus one Lo 

element x; /* argument is an element =F 
{ 

return( x<(element)0O ? -1 /* if number is negative, return -1l x/ 

s 1 )7/7*- else return +1 bal 


‘ 
ay 


[RRR K KKK KK KKK KKK KKK KERR KEK KK KKK EK KEK ERK KEKE KKK KEKE KKKKKKKKKKEKKKKKK 


~ 


x 


* ISIGN -- The | Of An Ent ae 9762 +/- 1 


* 


= 


Saye fea 
pee 


ine ee 


RRR KKK ERK RRR ERK KK KER EKER KEKE KR RE KEK KKK KKK KKK KEKE KK KEKE KREKKEREKKKKKKKE / 


{: 
i4 int isign (x) /* return the sign of a number as plus or minus one if ) 
Hy int x; /* argument is an integer =f 
i { 
: return( x<O ? -1 /* if number is negative, return -1l at 
a We /* else return +1 we” 6 





] 
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eel hates a 


The professional 
diagnostic facility for C 


[REE REK KKK REE ERE RE KEK KEKE KEKE RE KREKREKEKEKKEKKEREKKKEKKKKKKKKEKKR 


Satdwmme* amr me 8. es ee 


{| : 

N : 2 * 

™ ©6©PC-lint lets you zap swarms of C : * ABS -- Absolute Value :-Of An Element 
‘@ bugs and glitches at a time. B i 


FRR RR RR KR IR KK RIK RK KKK KKK KKK KK KKK KKK KKK KKK KEKE KKEKEKKEEKKEKKKKKKEKE / 


1 Now you can uncover the quirks, 
inconsistencies, and subtle errors 


element eabs (x) /* the absolute value of an element */ 
that infest your C programs... element x; /* argument is an element */ 
waiting to bite you. PC-lint finds { 
them all... oras many as you return( x<O ? -x /* if number is negative, make it positive */ 
want ... in one pass. Set PC-lint ts ea ee ares eee ce Oh cee - 


to match your own style. 


Outperforms any lint at any price 


[RRR RRR RRR EKER KR ER KEK RE RE KREKRRR KK KKK KEKE KKK KEKE KEK IK ERK KEK EKK KE REKEEKEKEKKEEKE 


= Full K&R support and : 
common ANSI enhancements *. LABS —~ “A be 621-8: e Value OF An Integer 
*x 
(even MS keywords) 


= Finds inconsistencies 


FOR TTI KK KK RK KK KK KK IKK KKK KKK KEK KK KEK KKK KE KRKK KERR KEK KEREREKE / 


(especially in function calls int iabs (x) /* the absolute value of an integer */ 
across multiple modules!) int x; /* argument is an integer */ 
= Modifiable library descriptions | { 
for 8 popular compiler return( x<O ? -x /* if number is negative, make it positive */ 
i oe F- /* else return it like it is Po 
= Super fast,one-pass operation } } 


= Suppress any error message 
= Zillions of options 


[RRR RRR RRR RRR KR KK KKK KKK KKK KEKE KEE KEE KEK KEE KEE R KER EKER KEKKKKKER 
x 


PRICE $139 >MC+VISA+COD {@ . ALE as Dep? PF usr Se bs oe 


x 













Includes USA shipping and handling. $& 

Outside USA, add $15. In PA add 6%. # i 
ORDER TODAY, ah 
30-day guarantee - 


+ Runs under MS-DOS 2.0 and up, and rf 
| AmigaDOS. Uses all available memory. (i 


KKK KK KR HK KKK KKK ERK KKK KER KER EK KE KK EK EKER KEK KEE KEKE KKK EKEKKEREREEKEKEE / 


int alpha (x) /* step function return zero or one ¥F 
int.: 7 /* argument is an integer (in this program...) =/ 
{ 

/* if argument strictly positive, return one */ 


return( x>0 ? 
: /* else return zero «/ 


or 
~ 
se 


a aed 


1 


Trademarks: PC-lint (Gimpel Software). 
MS. MS-DOS (Microsoft), Amiga (Commodore) 
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‘A 3207 Hogarth Lane, 


Collegeville, PA 19426 
(215) 584-4261 __ 
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mn nema a (continued on page 60) 
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Institute Inc. 
Announces 





pe 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 


Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 















Name 
Title 
Company 
Address 
City 
Telephone 


CO) the C compiler for MVS software developers 
C) the C compiler for CMS software developers 
() the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 


Please complete or attach your business card. 


Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 
27511-8000. Telephone (919) 467-8000, x 7000 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 
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SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. Lattice is the registered trademark of Lattice, Inc. PLINK86 and PLIB86 are trademarks of Phoenix Software Associates Ltd. 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute Inc. Printed in the USA. 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


HS 


FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
Cause you can run all DOS com- 
mands plus COM and EXE programs 
from within HS/FORTH. Not be- 
Cause you Can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math pack. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
ics support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because I/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer. You could even transfer con- 
trol of your entire computer to a 
terminal thousands of miles away 
with a simple >COM <COM pair. 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don’t avoid the objections 
to Forth — WE ELIMINATE THEM! 


Public domain products may be 
cheap; but your time isn’t. Don't 
shortchange yourself. Use the best. 
Use it now! 


HS/FORTH, complete system: $395. 
with “FORTH: A Text & Reference” 
by Kelly and Spies, Prentice-Hall 
and “The HS/FORTH Supplement” 
by Kelly and Callahan 


or Visa Mastercard 
HARVARD 


SOFTWORKS 


PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 





Circle no. 132 on reader service card. 





Listing One (Listing continued, text begins on page 16.) 


char *move (src, dst) 
char’ *src, *dst; 


{ 


/* move a string returning ptr to end of result */ 
/* pointers to source & destination strings */ 


while (0!=((*dst++) =(*srctt))); 
return (--dst); 


/* copy bytes until end of source tf 
/* return ptr to end of destination */ 


[RRR RRR RK KKK KKK KEK KKK KR K ERE KKK KEK KEKE KK KEKE KKK KEK KKKKKEKEKKKEEKKKKEKKKKEKE 
* 


= RAD I.US 


x 


S TAT i Ss-T TOS SS 2 ws Ty ion to 


KKK KKK RRR KKK RK KKK KER KER ERK RK KR KK KEK KR REE IEKKKK KKK KEK KKK KKKEEKKKKKKEKK / 


void radius statistics() { /* show how weight points are distributed */ 


element r, /* current radius accumulator af 
*pe; /* pointer to current element x / 
float mu=0, /* mean of radii =f 
sigma=0; /* standard deviation of radii lt 2 
committee *pc=net; /* pointer to current committee = 
vector *pt; /* pointer to current tlu s7 
int Cy /* committee loop counter as 
t, /* tlu loop counter a/ 
e, /* element loop counter «/ 
n=ncom*nt lu; /* number of tlu's altogether ay 
forall(c,ncom) { /* for all committees... xy 
pt=pct+-—>wtpt; /* point to first tlu =f 
forall(t,ntlu) { /* for-ali; ties. J 
pe=*pt++; /* point to first element */ 
r=0.; /* initialize radius tally */ 
forall(e,dim) { /* for all elements... */ 
rt+=(*pe) * (*pe) ; /* accumulate radius sqr'd */ 
pet+; /* point to next element / 
} 
mu+=sqrt { (float) r); /* accumulate sum of radii x / 
sigmat+=(float)r; /* accumulate variance variable */ 
} 
} 
mu/=(float)n; /* divide to get overall average radius */ 
sigma-=mu*mu*n; /* compute variance al 
sigma=sqrt (sigma) /mu; /* compute standard deviation es 6 
printf("\nmean of the radii: %f",mu); /* print statistical at 


/* summary of weight */ 
/* point distribution x/ 


printf ("\nstandard deviation: %f",sigma); 
printf ("\n") 3 


[RI RR IRI IR KR RR RIKI RRR IK RIK IKK RIK RRR RH KER EEK EKER RRR ERE 
x 


x READ 


* 


HEADER -—-—- Read S41 Header 


KK KIRA KR KR KKK KKK KKK KEK KK KEK KK KK ERK KEK RIKER ERK KER ERK RAKE KKK KKK EEE / 


void read _ header () /* read training file header information af 
{ 
rewind (pat); /* rewind pattern file =f 
pats so far=0; /* reset pattern sequence counter */ 
fscanf (pat, /* header comes from pattern file */ 
"hdr td $d *d \n", /* header must start with ‘hdr' 


* then read header information 
* composed of three numbers */ 


/* put this information into the following global variables */ 


&ncom, /* number of committees in network */ 
&patwide, /* pattern width in pixels ca 
&pathite); /* pattern height in pixels Lt 


(continued on page 65) 
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Turbo Tech Report 
peaks Your Language. 








The newsletter/disk publication for Turbo Pascal® users 


Are you a devoted Turbo Pascal programmer, 
tired of reading about other languages? Are you 
looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or 
incorporate into your programs? Are you 
interested in improving and expanding your 
Turbo Pascal programming skills? 

Then you deserve a subscription to Turbo Tech 
Report. the bimonthly newsletter/disk publication 
from the publishers of Dr. Dobb's Journal and 
Micro/Systems Journal. Each issue delivers more 
than 250K of Turbo Pascal source code programs 
on disk, and 20+ pages of articles, Turbo Pascal 
software and book reviews, and analysis and 
commentary. It’s the only publication delivering 
such focused technical articles with code on 
disk—and it doesn’t waste your time with 
information about other programming 
languages. Each valuable issue contains: 

¢ Articles on topics like speedy 3D graphics, 
mathematical expression parsers, creating global 
gotos, memory resident and Al applications and 
more—all written by Turbo experts. 

¢ Reviews of the latest Turbo Pascal software 
programs from companies like Borland 


International, Blaise Computing, Media 
Cybernetics, Nostradamus, TurboPower Software, 
and more! 

e News and commentary detailing the 
latest products and developments in the Turbo 
Pascal programming community. 

¢ A disk filled with Turbo Pascal code! 
You'll get the Turbo Pascal utilities and routines 
discussed in the newsletter’s articles, as well as 
applications developed by Turbo users from 
around the world. You'll receive programs that 
make labels, generate menus, provide faster 
screen access, transfer files between CP/M and 
MS-DOS computers, and more! 

If you’re an expert Turbo Pascal programmer 
or a novice interested in expanding your Turbo 
skills, you need a publication that speaks your 
language: Turbo Tech Report. Subscribe today at 
the special price of just $99—that’s 33% off the 
regular price of $150. To order by credit card, 
call toll-free 1-800-528-6050 ext. 4001 and ask 
for item 300. Or mail the attached coupon with 
your payment to Turbo Tech Report, 501 
Galveston Drive, Redwood City, CA 94063. 


Turbo Pascal is a trademark of Borland International Inc. 


Circle no. 119 on reader service card. 


New From Lifeboat: 





ADVANTAGE C+ + 


Brings the power of C+ + to your PC. 
@ Opens the door to object-oriented 
programming. 

@ Allows programs with greater re- 
silience, fewer bugs. 

@ Lets you write reliable, reusable 
code that is easier to understand and 
maintain. 

® Includes many enhancements to C, 
yet maintains full compatibility with 
existing C programs. 

@ Is the key to developing large and 
sophisticated programs more pro- 
ductively. 

@ All the benefits of C, without its 
limitations. 

@ Available for most popular C com- 
pilers, including Lattice C and Micro- 
soft C. 


ADVANTAGE Link 

Everything you've always wanted in 
a PC-DOS linker. 

@ The fastest, most powerful PC-DOS 
linker available. 

@ The first linker to take full advan- 
tage of EMS. 

@ Accepts Microsoft and Phoenix 
command files. 

@ Supports up to 53 commands— 
more than any other linker. 

@ Compatible with Microsoft Code- 
View. 


Lattice C Compiler, 


Version 3.2 

Latest update of the ideal tool for 
developing high-performance 
MS-DOS applications in C. 

@ Produces fast and compact code. 
@ Full implementation of K&R C 
with UNIX and ANSI extensions. 

@ Over 300 library functions. 

® Seven memory modules. 

®@ Includes an object module librarian 
and an object module disassembler, 
complete set of libraries. 


@ Widest selection of C support tools. 


@ Now with full support for Microsoft 
Windows. 


TimeSlicer 

Create multitasking and real-time 
applications in C. 

® Optimize processor usage and 
transparency. 

® Bring multitasking into your ap- 
plication rather than interfacing with 
the operating system. Allows tasks 
to be created, suspended, restarted 
or terminated at run-time. 

@ Create more efficient and portable 
programs. 

@ Compatible with Lattice C, Micro- 
soft C, ADVANTAGE C+ + and ob- 
ject-oriented programming. 

® Includes header files for both C and 
assembly language and example 
programs with source code. 


RUN/C Professional, 


Version 1.1 

““_..is the overall best choice ina 

C interpreter.”’—PC Tech Journal 

@ Dynamically load and unload pre- 
viously compiled functions. 

® Execute functions in real time at 
compiled speed. 

@ Test modules with source code 
debugging. 

@ TRACE by line ranges. 

@ Execute by function in immediate 
mode. 

® Set multiple breakpoints. 

® Read and/or change variable 
values during execution. 

@ Includes comprehensive manual 
with more than 100 example 
programs. 

@ Now compatible with Microsoft C 
Version 4.0. , 


We make the best software 
even better. 


After 10 years of publishing 
software, we know what’s 
important to you. We’re com- 
mitted to a full-service pro- 
gram that goes beyond just 
selling you the best software 
at competitive prices. Our 
expert staff can help you 
decide which programs are 
best for your needs and pro- 
vide you with all the technical 
support you may require. You 
can rely on Lifeboat for the 
complete solution to your 
programming needs. 





cat 1-800-847-7078 
in NY 914-332-1875 


or your local Lifeboat Authorized Dealer. 


The Full-Service Source for Programming Software. 


fIEDAAT 
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55 South Broadway 





INTERNATIONAL SALES OFFICES 


Tarrytown, NY 10591 
Telex # 510-610-7602 


Canada: Scantel Systems 
Phone: (416) 449-9252 
England: Grey Matter, Ltd. 
Phone: (44) 364-53499 
System Science, Ltd. 
Phone: (44) (01) 248-0962 


France: Compusol 

Phone: (45) 30.07.37 

Italy: Lifeboat Associates Italy 
Phone: (02) 464601 

Japan: Lifeboat, Inc. 

Phone: (03) 293-4711 


Spain: Micronet, S.A. 
Phone: (34) 1-262-3304 
The Netherlands: 
SCOS Automation BV 
Phone: (31) 20-10 69 22 


West Germany: 

MEMA Computer GmbH 
Phone: (69) 34-7226 
Omnitex 

Phone: (76) 23-61820 
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WE JUST GOT 





MORE SOPHISTICATED 





e invented BASIC over 
20 years ago. 


Later, we re-invented it for 
micros as the True BASIC™ 
structured-programming language. 

And the idea was: To make program- 
ming as easy and natural as possible. 

So you could concentrate on what to 
program. Not how. 


Now there's True BASIC Version 2.0 for 
the IBM® PC and compatibles. Faster, 
more powerful and sophisticated than 
the original. 


MORE GRAPHICS. 


Right from the start, True Basic gave you 
terrific device-independent graphics. 
Built-in 2-D transforms. And support for 
multiple windows. 


Now we've added more graphics and 
full mouse support. 


So for the first time, you can create one 

program that will do superb graphics on 
CGA, EGA or Hercules displays. With- 

out worrying about additional drivers or 
overlays. And on the EGA, you can SET 
COLOR MIX to define your own colors. 
Use four shades of blue if you want (and 
make our competitors green with envy). 


MORE CONTROL. 


We always supported you with recursion, 
local and global variables and separately 
compiled libraries. 


Now you can have modules, too, the 
industrial-strength tool for building large 
applications. 


Using modules makes it easier for you 
to share data between routines. Build 
data structures. Then, if you want, hide 
them from other parts of the program. 
So you can always be free to focus on 
the task at-hand. 


Modules have their own initialization 
sections, so you can set up global vari- 
ables or turn on instrumentation. 


And, like other procedures in True 
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BASIC, modules can be compiled sepa- 
rately and stored in a library where they 
can be shared by several applications. 
Or they can be loaded directly into the 
True BASIC environment as part of your 
customized workspace. So when you 
use True BASIC interactively, the mod- 
ules look like built-in functions. 


Modules made Modula-2 the successor 
to Pascal. Now they've put True BASIC 
one-up on all other BASICs. 


MORE SPEED. 


2.0 is 20 to 200 percent faster than True 
BASIC Version 1.0. Both compile times 
and execution speeds. And on some 
real-world benchmarks, we're faster 
than many native-code compilers. 


MORE POWER. 


Start with a complete matrix algebra 
package. 


Then, since we support the use of 640K 
for both code and data, add arrays as 
large as you want. 


Our compiled code is more compact than 
what other compilers generate, so there's 
more memory left for your application. 


We've enhanced our dynamic array 
redimensioning and improved our built- 
in 8087/80287 support, making True 
BASIC the most powerful number- 
crunching BASIC around. 


And if it's strings you crunch, we've 
added new string functions and raised 
the limit. So strings can be up to 64K 
characters long. 


MORE DEBUGGING. 


We pioneered breakpoints and immedi- 
ate-mode capability in a compiled 
BASIC environment. 
Now we've added utilities that allow 
you to visually TRACE through your 
program, and check the values of 
selected variables. Or print a cross- 
referenced listing. 

Circle no. 344 on reader service card. 


$0 YOU CAN GET 
MORE BASIC. 





And new compiler options like NO LET 
and NO TYPO let you decide how 
strictly you want your variable names 
checked. 


MORE INNOVATION. 


True BASIC has always had features 
like full-screen, scrollable editing. 
Block copy and block moves. And 
global search and replace. 


Now, 2.0 keeps you on the leading edge 
of editing and fileemanagement technol- 
ogy. With SCRIPT, to write the True 
BASIC equivalent of a DOS batch file. 
ECHO, to transfer your output to disk or 
printer. And ALIAS, to give you and 
your programs a better roadmap to your 
subdirectories. 


There's also Version 2.0 of the Devel- 
oper's Toolkit. With support for DOS 
interrupts. Pop-up menus. Even 
designer fonts. 


And remember: your programs are por- 
table to the other machines we support: 
the Apple Macintosh™ and Commodore 
Amiga® 


MORE SUPPORT. 


Call your local dealer. Call us TOLL- 
FREE at 1-800-TR-BASIC. Or write to: 
True BASIC, Inc., 39 South Main Street, 
Hanover, NH 03755. We'll send you 
more information. Including a free 
demo disk. 


See for yourself. That we're still true to 
our basic idea. 


™ 





I 


True BASIC Language System is a trademark of True 
Basic, Inc. Macintosh is a trademark licensed to Apple 
Computer Inc. Amiga is a registered trademark of 
Commodore-Amiga, Inc. IBM is a registered trademark 
of International Business Machines. 
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PAINLESS WINDOWS. 








_ Windows. Data Entry. Menus. 
Finally, a C programmers’ tool that makes 
them as easy to use as printf). 


With Greenleaf DataWindows’ 
you move in quantum leaps! 


GEES Snazzy Window Treatments a 


DataWindows represents an important 
breakthrough in C programming tools. It 
sets you free so you can create exciting 
programs quickly and easily, saving both 
time and money! Developed to work with 
the IBM PC, XT, AT, compatibles, and 
MSDOS or PCDOS, DataWindows is a 
carefully tooled system of C functions which 
will jazz up your programs with 
unprecedented efficiency. 





Greenleaf DataWindows is integrated 
windows, transaction data entry, pop-up, 
pull-down, and Lotus style menu systems 
with: 
® Screen Management. You don’t have to 
remember what’s on the display or the 
sequence in which you put it there. 
DataWindows does the grunt work. 
There are no restrictions. 


® Transaction Data Entry. Data entry 
windows can have any number of fields 
with sophisticated options for reading 
many data types. Calls are made to help, 
validation, and other functions. Full 
featured text editing, protected and 
mandatory fields, dBASE type picture 
strings, context sensitive help, validation 
of fields and transactions, redefinable 
keys, password entry, attribute control, 
keyboard idle and much more. 


™ Device Independence. It detects the type 
of display adapter your computer is using 
and adjusts to it automatically for CGA, 
EGA, or monochrome. Logical video 
attributes are easy to use for color or 
monochrome. 


= Compatibility. Runs with Microsoft 
Windows and IBM TopView. 


= The Greenleaf Tradition of Quality. Reliable 
products. Professional documentation that 
gets you up and running quickly and 
keeps you there. Reference card. 
Newsletter and Bulletin board. 


IBM, Microsoft & dBase, are registered trademarks of International 
Business Machines, Microsoft Corporation & Ashton-Tate respectively. 


PCDOS, IBM PC, XT, AT, & TopView are trademarks of IBM; MSDOS 
and Microsoft Windows are trademarks of Microsoft Corporation. 


Lore 





oasetiaeaes Stop Window Shopping =a 


Order Today. Or call toll free for a free 
demo of the windows library that makes 
all the others obsolete. 


Order any of these high performance 
tools by calling your dealer or 
1-800-523-9830 today. Specify compiler 
when ordering. Add $8 for UPS second 
day air, or $5 for ground. Texas residents 
add sales tax. MasterCard, VISA, P.O., 
check, COD. In stock, shipped next day. 


Greenleaf DataWindows $225 
DataWindows Source Module $225 
The Greenleaf Comm Library v2.0 $185 
The Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $325 
Digiboard Comm/8-II $535 





GREENI.EAI- 


S ) igi 
1411 LeMay Drive, Suite 101 
Carrollton, TX 75007 
Call Toll Free 
1-800-523-9830 
In Texas and Alaska, call 


214-446-8641 


Circle no. 97 on reader service card. 


CERES Window Dressing ee 


= Simple or Complex Windows. Up to 254 
powerful overlaid windows 
simultaneously, all with just one kind of 
window to remember! Yet any window 
can be from one character to 32K! 


™ Easy Window Operations. DataWindows 
lets you move, zoom, frame, title, change 
colors, titles, frames, size, location, and 
make windows visible or invisible at will! 
Functions set cursor, attributes, and write 
data to any window or “current window’. 
Word wrap, auto scroll, keyboard 
functions. 


= Write to Any Window Any Time. Windows 
may be visible, overlaid, or invisible, and 
you can write to them anyway. What you 
write will be seen when the windows 
become visible. 


= DataWindows is fast! It writes directly to 
video memory (in some modes). 


® Easy to save! Any window, complete with 
attributes, can be saved on disk quickly 
and efficiently. 


® Source code available. No royalties. 
EEE Also from Greenleaf: 


The Greenleaf Functions v3.0 
The most complete, mature C language 
function library for the IBM PC, XT, AT 
and close compatibles. Includes over 225 
functions — DOS, disk, video, color text 
and graphics, string, time/date, keyboard, 
disk status and Ctrl-Break functions plus 
many more. 

The Greenleaf Comm Library 
Our 2.0 version is the hottest 
communications facility of its kind. Over 
120 functions — ring buffered, interrupt 
driven asynchronous communications for 
up to 16 ports simultaneously with 
XMODEM, XON/XOFF, many many 
sophisticated features. 


We support all popular C compilers for 
MSDOS/PCDOS: Microsoft, Lattice, 
Computer Innovations, Aztec, DeSmet, 
and others. 





Listing One (Listing continued, text begins on page 16. ) 


[RRR RRR RIKKI KK KKK KKK KEK KEK KKK KKK KKK KEK KEK KEE KEK KRKEKKKEKKEEEKKKKKK 
* 


* RANDOM i 


x 


Rain’ dom Number Generator 


HHAEKKKEKKKKKKREKKEKKEKKKKEKEKKKEKKEKKEKKEKKKKKKEKKEKKEKKKKEKEKKEKKEKEKEEKKKKKKKKKKKKKK / 


element random() { /* generate a uniformly distributed 


* random number from the open interval (0...1) */ 


return (rand ()/16384.); /* return scaled random integer ab 


[RRR RK RKEK KKK KERR EKER KKK KKK KEK KEKE RR KKK KK RK KKK KKK KEK KKK KKK KKK KKKKKK KKK 
* 


= AN: LT 


* 


V ASL =e On. iat BE) €.2 @on-t VY .2.1°% 2 


RREKKKKEKKKEEEK EERE EKER KEK EEK EEK EK KKEKEKEKEKKEKKEKEKEEKEEKEKKEKKKKKKKKEKKEK / 


element init val (radius) /* generate init‘'l value for element a tlu */ 


element radius; /* the avarage radius of a weight point °F 
{ 

return ( /* return the *«/ 

(radius*sqrt (3.))}/ (sqrt ((float) dim) ) /* average weight value */ 

* (2.*random()-1) /* scaled randomly by a */ 

)? /* uniform distribution */ 


[RRR KEKE KKK REE KEK KEK KEK KKK KKK KKK KEK KKK KKK KEK KEK KEKE KKKKKKKKKKKKKKKKKK 
* 


“ LCL So Aes 2 oe 


* 


Aol 1)0.o:2-€-e =. oOo © ag.e,.:. Ee, 


RKKKKEKRRKEREEEREKKEEEREKEKREKKEKKKEKKEKKKKEKKKKKKKKKEKKKKKKKKKKKK KKK KKKKKKK KKK / 


void initialize() { /* allocate & initialize network array storage */ 


committee *pc; /* pointer to current committee of network af 
tlu *pt /* pointer to current tlu of committee af 
element *pe, /* pointer to current element of tlu = 
r /* current initialization weight value et 

int. ¢, /* committee index in network «/ 
By /* tlu index in committee */ 

e; /* element index in tlu LF 4 
printf ("\ninitializing") ; /* say what's taking so long ! =F 
dim=patwide*pathitet+1; /* number of elements ina tlu ae 
pattern=(vector)calloc(u(dim), /* allocate the pattern *f 
u(sizeof (element) )); /* vector “7 

class=(boolean *)}calloc(u(ncom), /* allocate the class array “/ 


u (sizeof (boolean) )); /* which will contain the 
* desired decision bits from the committees, as read from the 
* training file. the actual verdict of the network will be 
* compared with this to see if training is required. */ 


vote=(int *)calloc(u(ncom), /* allocate the votes array *y 
u(sizeof (int))); /* which will contain the 
* count of votes for each 
* committee. */ 


decsn=(boolean *)calloc(u(ncom), /* allocate the decision */ 
u (sizeof (boolean) )); /* array which will contain 
* the bits of the answer, 
* one bit per committee. */ 


/* allocate the network fs 
/* as an array of committees */ 


pc=net=(committee *)calloc(u(ncom), 
u(sizeof (committee) )); 


forall(c,ncom) { /* for all committees in the network... */ 


pce->wtpt=pt=(tlu *)calloc(u(ntlu), /* allocate a committee #7 
u(sizeof(tlu))); /* as an array of tlu's x / 
pct++-—>dot=(DOTYPE *)calloc(u(ntlu), /* together with dot af g 


u(sizeof (DOT))); /* product save cells */ 
forall(t,ntlu) { /* for all tlu's in the committee... */ 


(continued on next page) 
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MAKE YOUR PC 
SEEM LIKE AN AT! 


MAKE YOUR AT 
SEEM LIKE A 
DREAM MACHINE! 


ANSI-" 
CONSOLE 


The Integrated Console Utility™ 


FAST, POWERFUL 
ANSLSYS REPLACEMENT 


For the IBM-PC, AT, and clones 






New Version 2.00 is MUCH FASTER! 
Now blink free scrolling on CGA! 


Now uses EMS/EEMS for Scroll Recall 
New Menu Program for Changing Options 


GET A BOX FULL OF UTILITIES! 
MAKE LIFE EASIER FOR ONLY $75! 


eeew2rteeteeeeeememUmcsmCemUC OC OCU OC OCU OPC CSP BSBA BSeeeeeeememUMOmUCUOMOUCUCUCOMOCUCOrOCUCMOCUCMOCUC!MOCUC!OMOChUCSMO—hUCOhOChUh]—hUChOh Uh] UH Uh SO SH PF 


¢ Speed up your screenwriting 2-6x 

e¢ Extend your ANSI.SYS to full VT100 
e Add many more escape sequences 
* Scroll lines back onto screen 

¢ Save scrolled lines into a file 

e Add zip to your cursor keys 

e Free your eyes from scroll blinking 
¢ Easy installation 

¢ Get a 43 line screen wWiEGA 

¢ Get a 50 line screen w/CGA 

¢ No more annoying typeahead beep 
¢ Prevent screen phospher burnin 

¢ Control many programs’ use of color 
¢ Generate breakpts from keyboard 

* Shorten that annoying bell 

¢ Over 50 other useful options 


“The psychological difference is 
astonishing” 
—Lotus June 85 pg 8. 


“So many handy functions rolled into 
one unobtrusive package”’ 
—PC-World Feb 86 pg 282. 


“The support provided by the 
publishers is extraordinary” 
— Capital PC Monitor May 86 pg 25. 


"... the best choice for improving your 
console...” 


— Capital PC Monitor June 86 pg 26. 


460p Manual (w/slip case) & disks $75. 


Satisfaction Guaranteed! 
Order Yours Today! 


HERSEY MICRO CONSULTING 
Box 8276, Ann Arbor, MI 48107 
(313) 994-3259 VISA/MC/Amex 


DEALER INQUIRIES INVITED 


OOOO OOOO: Fast ANSI Console Driver 





Circle no. 280 on reader service card. 
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it’s Sant, ? 


SAFEWARE® Insurance provides full 
replacement of hardware, media and 


purchased software. As little as $39/yr. covers: 
¢ Fire * Theft * Power Surges 
¢ Earthquake * Water Damage * Auto Accident 


For information or immediate coverage call: 


1-800-848-3469 
In Ohio call 1-614-262-0559 
On Compuserve, GO SAF 


SAFEWARE, The Insurance Agency Inc. 





Circle no. 111 on reader service card. 



















OEM188 SBC DEVELOPMENT SYSTEM 
FOR PRODUCT APPLICATIONS 


EXPANSION 
BUS 






The OEM188 - designed to bring your product to 
market in the fastest possible time - through the most 
productive software development environment 
available & cost effective hardware. 


e The OEM188 boots MS-DOS or CP/M-86. Write your 
fe in Assembler, Forth, Basic, C, Fortran or Pascal. 
OM your code. The EPROM programmer is onboard 
and fully integrated into the hardware and software. 
e Develop your code quickly with Vestas ROMmed 
languages designed for control tasks. 
Size 8” x 8”. FDC for 4 drives, Dual UART with RS-232, TTL 
and RS-422 1/0, Bus - IBM, Printer port, Watchdog, Battery 
backed real time clock and up to 256 K static RAM/ROM. 
Programmer interface - terminal. Various 1/0 boards available. 
Prices starting as low as $329 each 


VESTA TECHNOLOGY, INC.°7100 W. 44th Ave.eSuite 101 
Wheatridge, CO 80033 © (303)422-8088 ¢ VISA & MC 


Circle no. 278 on reader service card. 


IOTools Library 
for 


Modula-2 



















¢ Handles memory mapped consoles 
and/or terminals with same code in 
your application. 


¢ Over 200 procedures in 15+ modules. 
¢ Source available. 
¢ For Logitech and Pecan systems. 


Order now from: 


Rhoads Software 
504 Meetinghouse Lane 
Kennett Square, PA 19348 
(215) 388-2626 
Laie ae 
Programmer's Connection 


Circle no. 128 on reader service card. 
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Listing One (Listing continued, text begins on page 16.) 


pe=*pt++=(element *)calloc({u(dim), 
u(sizeof {element))); 


/* allocate a tlu */ 
/* aS an array 
* of elements */ 


forall(e,dim) { /* for each weight... a/ 
if (radius==0) *pe++=(e!=0); /* grow connections? ee 
else { /* or adjust weights? ¥/ 

x=eabs (*pe++=init val ( /* adjust, get initial */ 
(element) radius));/* weight value oy 
if (x>maxel) maxel=x; /* update max magnitude */ 


} 
} 
initialize each element to a random value such that the average 
radius, or distance from the origin, of each weight point is ‘radius'. 
this will produce a distribution of weight points clustered near the 
surface of a hyper-sphere as the starting condition. If the radius is 
zero, then all weights will be set to zero except for the threshold 
setting weight. This is analogous to forcing the program to grow new 
interneural connections on an as-needed basis, supposedly just like 
the real brain does! */ 
} 


ye + e + 8 6. HH 


} 


orintt (*\n") >; /* perform new-line when initialize is done */ 


[RK ITI TIKIT TKK IT TK HI KR IK RIK KKK KKK EEE KEKE KERR EEE EEE 
* 


. DO. Ft PR Oo aes 


* 


Form A Di .& Poa u et 


Fe KKK KK KK KKK KIKI KKK KKK KKK KEK KKK ERK EKEREEKEKKEKREKEKKKKKKKRKKKKKKKKKKKKKKE / 


DOT dotprod (x,y) /* form the scalar product of two vectors af 

yector: x, '¥? /* both arguments are vectors my 
{ 

DOT z=0; /* result accumulator, initialized to zero */ 

int 13 /* element index, used as loop counter “F 

forall (i, dim) /* for all elements in each vector... * 

Zt+=(*x++) * (*yt++) 3 /* compute the dot product «/ 

return (z); /* return it to the caller */ 


[RRR RE RRR RRR RRR RARER ERE EERE EEK EEK EK IKK EER EERE KERR ER EER ERE KKEREEREEE 
* 


- Ser 


* 


C-LA‘S Sc: 2 ead Tene CL as & T a‘g 


KKK IK TT FTI KKK TK IK TT IT IK IIT KK IKK RIK KIRKE KKK KKK KEKE KKK KEKE KEK KERE / 


boolean read class({) { /* read the class tag number for the image */ 


int 5 /* loop counter for index in class array *f 
tmp; /* temp cell to hold decimal category vs 
boolean *pcl=class; /* pointer to class (category) array wif 
if (fscanf (pat, "$d", &tmp) !=1) /* read the pattern category wll 
return (FALSE) ; /* return FALSE for end of file oft J 
forall(i,ncom) { /* for each committee in network */ 
*pcl++=tmpél; /* extract desired committee output */ 
tmp>>=1; /* advance to next committee ai 

} 
*pcl=1; /* augment with a 1 to prevent singularity */ 
pats so fart+; /* update pattern sequence counter */ 


return (TRUE) ; /* return TRUE if class read successfully “J 


[BIRT TTT IK KR TR KR IK ERR ERK ERE RE KEK AKER EERE KEKE EKEKEKEEEKEK 
*x 


* READ 


* 


PATTERN -- Reaad Next Pa -t €_e-5r Nn 


KK KKK KKK KKK KKK KKK KKK EKER KK KKK KKK KKK KKK KER EEK KKK KEK EK KKKEKEKEEEKEKKEKKE / 


boolean read _pattern() { /* read next pattern from training file */ 


int : ef /* loop counters for row & column of image */ 
element *pe=pattern; /* pointer to element of pattern vector x/ 
float tmp; /* temp cell for input conversion ag 
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forall (i, patwide) /* for each row in the image, ah 


forall(j,pathite) /* for each pixel in that row, */ 
if( fscanf (pat, "Sf", &tmp) /* input value of pixel =y 
'=] ) return(FALSE) ; /* return FALSE if end-of-file */ 
else *pe++=(element) tmp; /* convert to type element ny 
return( read class() ); /* read in its class as an array 


* of correct decisions for each committee in the network. If the 
* entire pattern is read, together with its class, return TRUE. */ 


[III I RFT KKK KKK KKK KK KKK TT KOK IK IK KK IKK IK KKK KKK KKK AK KARR KKK 
* 


* COUNT ¥ Oot SS. ee! OO Bie ke The Votes 


* 


RREAERARERKEERRKEEEREKEREEEKEKEKEREREKRKKAAKKKKKKAKKEKKKEKKKKKKKKKKKKK KKK / 


int count_votes(pc) /* count the votes for each tlu in a committee cf 

committee *pc; /* second parameter is a pointer to committee */ 
{ 

DOT *pd=pc->dot; /* dot product save cell pointer */ 

tlu *pt=pc->wtpt; /* tlu pointer */ 

int Es; /* tlu index (loop counter) a 

count=0; /* the count of votes for the committee ad 

forall (ti,ntlu) /* forall tlus in committee */ 

count+=sign ( /* count votes as + or - nd d 

*pd++= /* & save dot product as ba 

dot prod (*pt++, pattern) /* weight point dotted with */ 

3 /* pattern vector Ry. 

return (count) ; /* return tally Ky. 


[RR IIR IKK IT TK KKK TKK KT KK IK KKK KKK KK KKK KK KKK RK HARKER KKK KR KKK KA KKK KK 
* 


- RECOGNIZE -- Recognize A Pat t@ Fn 


x 


BERRESERRERERERERREEARERAEEREERRERREREREREKREEREREEREEERERERERERERER ARR EKK / 


void recognize() { /* recognize a pattern by taking the decision 
* of each committee to be a bit in the category 
* number for the pattern 
a 


int i, /* loop counter x] 
*pv=vote; /* pointer to vote count array ef 


boolean *pdec=decsn;/* pointer to decision array. 
* this holds the decision bits for each 
* of the committees in the network. 


*/ 
committee *pc=net; /* pointer to current committee in network 7 
forall (i, ncom) /* for all committees in the network... =f 
*pdect+t+=alpha (*pv++=count_ votes (pc++)); /* how many votes ? of 


[RRR KKK KK RRR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKRKKEKKREKK KKK KKK 


x 


. SEES: OW EB AR a Oe Seca gy 2 Woh to Hil a n-e: 2 


x 


RRA REE E ERE EEE REE RRR ERR RRR ERR ERR ERR RIKI KERR KERR ARERR RRA / 


int get_weak tlu(ci) /* choose tlu most vulnerable to be swayed a 

int <¢i; /* argument is committee index #7 
{ 

int weak=0O, /* index of weakest tlu so far fi 

sv=isign(vote[ci]), /* sign of committee's vote */ 

ti: /* tlu index */ 

DOT *pd=(é&net(ci])->dot, /* pointer to dot product array if 

conviction=INFINITY, /* lowest conviction so far 7 

d: /* saved dot product value a 

forall(ti,ntlu) { /* for all of the tlu's in this committee... ey 

d=pd[ti]; /* get the saved dot product value =f 


if (sign(d)==sv) { /* if tlu voted incorrectly «/ 


(continued on next page) 
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SQL Compatible Query System adaptable to any 
operating environment. 


CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 


Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 


Screen 1/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


Including Source Code 
$395.00 


File System interfaces include 
C-tree and BTRIEVE. 


HARDWARE AND FILE SYSTEM 
INDEPENDENT 


URTZBERG 


GompuTER SYSTEMS 


41-19 BELL BLVD. 
BAYSIDE, N.Y. 11361 


VISA/Master Charge accepted 


(718) 229-4540 


*C-tree is a trademark of FairCom 
IBM, SEQUEL, PC, XT, AT are trademarks of IBM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 


CQL and the CQL Logo are trademarks of Kurtzberg Computer 
Systems. 
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Jou Laboratories 
presents 


EditingTools 


new version 2.1 


A Superb 
Text Editor 
with an Intelligent 


DOS Shell 


ET Editor 
Fast, powerful, simple to use. 
Edit multiple files, limited only 
by available memory. Move text 
among files. Deleted lines are 
recoverable from the trash file. 


ET DOS Shell 

An intelligent interface between 
DOS and ET Editor. Load 
multiple directories as menus in 
easy to read table format - names 
of files with the same extension 
are sorted into a column, labeled 
by their common extension. 
Select a file to edit, or a program 
to execute without worrying 
about paths. 


Don't use your PC 
without ET 


ET Shell Commands 
Execute DOS Command, Change 
Color/ Drnve, ChDir, Copy, 
Delete, Edit, Execute, Move, 
Rename, Load/Erase Directory, 
Previous/ Next Directory, Print, 
MkDir, Store/Recall Command, 
List Commands, Return To 
Editor, and more. 


ET Editor Commands 
Auto Insert/ Indent, Indent 
Block, Previous/ Next File, Edit 
Trash File, Verify Key, Restore 
Line, Find/Replace, Goto Line, 
Repeat/ Reverse Goto, Tab 
Right/ Left, List Commands, 
Blank Screen, Return To Shell, 
and much more. 


$35.5. 


Optimized Turbo Pascal source 
code is available for $99 more. 
Demo $5. 


System Requirements 
ET is only 40K in size, and runs 
efficiently on IBM PC, XT, AT 
and true compatibles. No 
installation program. All editor 
command keys can be changed 
effortlessly during editing. It 1s 
not copy protected. 


Jou Laboratories 
P.O. Box 460969 


Garland, TX 75046 
(214) 495-8862 


Circle no. 355 on reader service card. 
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Listing One (Listing continued, text begins on page 16.) 


if (eabs(d)<conviction) { /* and if this tlu has the 
* least conviction of any that have been examined so far, */ 


weak=ti; /* then remember it as the best one so 
* far to adjust to sway the vote of this committee. */ 


conviction=eabs (qd) ; /* update lowest conviction a 


} 
} 


return (weak) ; /* return subscript of weakest tlu in committee */ 


[RRR ER RK KK KR IERKKKKKKEKKK KKK KEK KKK KEKE KKK EKER KERR KEKE KKK KK KKKAKKKKKEKKK 
* 


Y ADO U' Ss eh ENT a -. CO FS @ 6.) kt oh C.o: 4: £-£:2 ¢ 4 ent 


* 


BIH TKK IKK KK KKK RK KR RIK HR KK RRR KK E KKK KKK KKK KEKE KKK REE KEK EKKEKKREKEE / 


element adjustment (ci,ti) /* compute correction coefficient */ 
int ci, /* committee index lt 
ti; /* tlu index */ 

{ 
DOT d=(&net [ci])->dot [ti]; /* saved dot product */ 
if (corr incr) /* fixed increment correction a 


return(corr incr*sign(d)); 


if (absolute) /* absolute correction */ 
return( (int) (d/patmag) +sign(d)); 


if (fraction) /* fractional correction */ 
return (d*fraction/patmag) ; 


return (abort ("No correction method specified.")); 


[RRR RI RII RIT IKI KHIR RR KK ERE KEE KRKE EKER ERE EEK EER AEKEEEKE 
* 
% ADU s 2 -—- €'hange Ti. sS Reigats 
* 


KKK KKK KK KIKI KKK KKK KKK KKK IKKE KKK KKK RIKKI K KEKE KEKE KKK EK KEKE KK KEK KKK / 


void adjust(ci,ti) /* adjust the weights of a single tlu af 
int ‘¢1, /* committee index */ 
ae /* tlu index wf 

{ 
vector pw=(&net(ci])->wtpt [ti], /* pointer to a weight ae 
pp=pattern; /* pointer to a pixel tf 


element lambda=adjustment (ci,ti), /* the correction coefficient xy 


wt, awt; /* temps for max weight point 7 
int .; /* element index & loop counter */ 
tlus trained++; /* count adjustment of tlu */ 
forall(i,dim) { /* for each coefficient */ 

wt= (*pwt+) -=lambda* (*ppt+) ; /* adjust weights *7 
awt=eabs (wt); /* save magnitude “ff 
if (maxel<awt) { /* new maximum ??? «/ 
maxel=awt; /* yes, update max elem */ 
if{log_ level) { /* if any logging, */ 
printf ("\nmaxel=%f", /* then display the */ 
(float)maxel); /* new maximum value dt 


} 


if(log level>=3) 
printf("\n com=%$d tlu=%d lambda=%g", 
ci,ti, (float) lambda) ; 


[RRR RK KEK KKK KKK EKER EK KKK KKK ERK KK KEK KKK KKK KKK KKK KKK KKEKEKKKKKEKEKKEKKKER 
x 


2-5/0 A a. «Oe ==", fare Ti0's To Change Vote 
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KK KKK KKK KKK KK KKK RK KKK KKK KEKE KR KKK EKER KKK KEKE KKK KEKE KE KEKKEKEKKKKEKKKKEKE / 
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void sway tlus(ci) /* sway enough tlu's to change the vote of 
bao aR ok /* parameter is committee index ait d 
{ 
selene i /* loop counter */ 
lost_by=iabs(vote[ci]/2)+1, /* how many votes we lost by ll f 


weak tlu; /* weakest wrong tlu in committee */ 


DOT *pd=(é&net [ci] )->dot; /* pointer to dot product array «/ 


forall(i,lost_by) { /* do this enough times to sway the vote... my 
weak tlu=get_weak tlu(ci); /* find most vulnerable tlu wy 


adjust (ci, weak tlu); /* adjust its weights to change 
* its mind about the pattern */ 
pd[weak tlu]=-sign(pd[({weak tlu]); /* flip sign of dot product 


* so this tlu won't be considered again in this loop */ 


[RRR RK KKK KKK IKK KEK KEK KKK RK KKK KKK KEKE RRERKEKRRE KEK KKEKEKEKKEKKEKKKEKEKKEKE 
* 


* SHOW SITS = DPispiay- 8 i-ts On GC ROT 


* 


KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KEKKKEKEKEKKKKKEKEKKEKKEKSR kak kkK KKK K / 


void show_bits (ps, pb) /* display a bit vector on the screen */ 

char *Ds; /* the label for the bit vector we d 

boolean *pb; /* the pointer to the bit vector af 
{ 

im, 4, /* loop counter bal 

k=1, /* power of two be 

v=0; /* value accumulator a] 

forall(i,ncom) { /* for all committees */ 

if (*pb++) v+=k; /* convert binary to decimal */ 

k<<=1; /* advance to next bit ad 


} 


printf (" $s td",ps,v); /* display label and value =F 


[RRR KEE RE REE RRR KR KEKE KKK KKK KKK KEK KKK KEKE KEKE KKK RE KKEKKKKEKKEKKKEEKEEEK 
*x 


* TRAIN -- Train The Net wo fk 


* 


FOKKER EK IKK KKK KKK KK KEKE KEKE EK KREKERE / 


train() { /* train the network to recognize the pattern ad 
int ei: /* committee index “/ 
goofed=FALSE; /* give benefit of doubt -- assume didn't goof */ 
patmag=dotprod (pattern, pattern); /* find pattern magnitude «7 
forall (ci, ncom) /* for all the committees in the network... */ 
if (decsn[(ci]!=class[ci]) { /* if the committee goofed up, */ 
goo fed=TRUE; /* then say so, */ 
pats_missed++; /* count misrecognized pattern, */ 

sway tlus(ci); /* and change enough tlu'‘s 


* so it won't goof up on this pattern next time ! */ 
} 


if (goofed) { /* did we goof? "F 
missedt++; /* yes, count the boo boo! */ 
if(log level>=2) { /* if detail requested, */ 

prince (*\n") 7 /* start a new line */ 
show_bits("“siloam “ decsn) ; /* show machine's decision */ 
show_bits("really ",class); /* display what really is ef 


} 


[RR TI III IIR IIR I IORI RTT TTT TTT ITI IIR III RT IR TI TIRE RRR RRR IKE RES 
* 


: TO 7.6. oO. S---. 7 o't i3"t 


x 


Number ae a Cet nmec ts 


Se KKK TI TTR TITIES T I ITF IIIT RTT TTT KK TIT IK TTR ITE KKK EK IKE KEKE / 


int totcons({) { /* count total # of connections */ 


(continued on next page} 
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Quelo® 68000 Sonim 
<7 Tools 


Quelo Assembler Packages are Motorola compatible. 
Each package includes a macro assembler, linker/ 
locator, object librarian, utilities for producing 
ROMable code, extensive indexed typeset manuals 
and produces S-records, Intel hex, extended TEK hex, 
UNIX COFF and symbol cross references. Portable 
source written in “C” is available. It has been ported to 
a variety of mainframes and minis including VAX. 


68020 Assembler Package 
For CP/M-86, -68K and MS/PC-DOS ........ $ 750 


68000/68010 Assembler Package 
For CP/M-80, -86, -68K and MS/PC-DOS..... $ 595 


68000 “‘C’” Cross Compiler 
For MS/PC-DOS by Lattice, Inc. 


With Quelo 68000/68010 Assembler Package $1095 
With Quelo 68020 Assembler Package ...... $1250 


Call Patrick Adams today: Quelo, Inc. 
2464 33rd W. Suite #173 
Seattle, WA USA 98199 
Phone 206/285-2528 
COD, Visa, MasterCard Telex 910-333-8171 


a enn 
Trademarks: CP/M, Digital Research; MS, Microsoft Corporation; Quelo, 
Quelo, Inc. 


Circle no. 377 on reader service card. 


VERSION CONTROL SYSTEM 


TLIB™ keeps ALL versions of your program in ONE 
compact library file, even with hundreds of revisions! 
e Fastest, most powerful version control system you can 


buy. Nothing else comes close! TLIB updates libraries 
faster than some text editors can load and save files. 


e LAN-compatible! Shared libraries with PC Net, Novell, 
etc. Check-in/out locking for multi-programmer projects. 


e Synchronized control of multiple related source files. 
e Easy to use. Menu or DOS command line parmeters. 


e Frugal with disk space. Libraries are more compact than 
with most other version control systems. And TLIB 
uses no temporary files, so you can maintain a 300K 
library on one 360K diskette, with room to spare, even 
with TLIB itself on the same disk. 


e Free oe Landon Dyer’s excellent public domain MAKE 
utility (EXE, plus source code for DOS & VAX/VMS). 


e Plus: File compare utility. Virtually unlimited source file 
size. Date, comments with each version. Configurable 
user interface, and many configurable options, like: read- 
only libraries; automatic tab/blank conversion; insertion 
of revision history comment block in the source file. 


PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC 
BURTON SYSTEMS SOFTWARE 
P.O. Box 4156, Cary, NC 27511-4156 
(919) 469-3068 





















Circle no. 212 on reader service card. 


DATA CONVERSION 


@ 
1 

TRANSFER DATA BETWEEN OVER 

600 DIFFERENT COMPUTER SYSTEMS 

WORD PROCESSORS TOO 

QUICK TURN-AROUND 


PRICES FROM $9 PER DISK 
CALL OR WRITE FOR YOUR 


FREE CATALOG 
PORT-A-SOFT 

555 S. STATE ST., SUITE #12 
P.O. BOX 1685, OREM, UT 84057 
801) 226-6704 


Circle no. 229 on reader service card. 
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Listing One (Listing continued, text begins on page 16.) 
committee *n=net; /* neural network pointer a7 
tlu *c, /* committee pointer */ 
ty /* tlu pointer =s 













int ee /* loop indices */ 
no=0; /* totalizer accumulator ¥/ 
forall(i,ncom) { c=n++->wtpt; /* for each committee... ef 
forall(j,ntlu) { t=*ct+; /* for each tlu in the committee*/ 
forall (k, dim-1) /* for each element inthe tlu */ 
ou OF if (*t++!=0) not+; /* count it if it is connected */ 

ae O F } 

gua 3 

GA return (no); /* return the count iat 


} 





miselLA 
— wouth=2 





[RRR EKER KEK KIRK RK KKK KER KKK ERK KKK ERK KEK KKK KKK KEKE KKK KEKKKEKKEKKKKKKK 






* 
* S27 GO 2 O Ute esd: ae Go mt: £a:.i Biter Ui o.b a FS 
* 


RRA K ERE KR REE KEK KERR RK REE KKK REE RK KEKE EE ERE ERK KEKE ERE RE KKK KKK EERE KKK / 






void siloam() { /* outside control structure for pattern recognizer */ 
long start, stop; /* timer value cells for benchmarking LF 
int cons,new,old=0;/* connection counters */ 


JOURNAL OF read_ header (); /* read header information in the training file */ 
PASCHL, AOA AOL tt A ties ieee ee mee 


Edited by Dr. Richard S. Wiener, U. of Colo- radius statistics();/* print starting radius statistics */ 
rado, is the one-and-only periodical devoted 
exclusively to these three computer lan- BSN or One as AES NRA Cope Smee as 
guages. You'll find FREE software utilities, ee ee ree Sette eee 
new product news, software & book re-_ do { /* start over in training file, 
views plus articles written to help you with * we made a mistake... */ 
system programming...graphics...nu- ao ‘ ‘ 
merical computing...operating systems... missed=0; /* reset misrecognition counter / 
artificial intelligence...computer-aided read header () ; /* rewind training file 
instruction ...embedded real-time systems * and skip over header information... */ 
...discrete-event simulation...and much while(read_pattern()) { /* keep reading patterns until we've 
more. * done the entire training file and recognized them all */ 
John Wiley & Sons, Inc. recognize (); /* attempt to recognize the pattern */ 

& Es ed = train(); /* adjust any weights necessary to get 

* the correct recognition if we goofed */ 
John Wiley & Sons, Inc. 


. ° a : * x 
Subscription Department if (goofe &&start_ over) break /* select training strategy */ 


605 Third Avenue, New York, NY. 10158 


VES! PI 4 NO-RISK EXAMINA } /* end of while loop to read next pattern “7 
! Please send me my NO- - 
TION ISSUE of Journal of Pascal, Ada & Modula-2 npasst+; /* increment pass counter */ 
(ISSN 0735-1232) bimonthly for one year. | under- if (log level>=1) { /* give pass summary report */ 
ee ere poreoma raceme tah eer f= aan 
; : ; yess c new=cons-old; /* compute how many new ones x] 
ing. Otherwise | will return it with full payment. old=cons; /* ere for iS time */ 
sphere ag printf ("\npass # %d missed td cons=%d new=%d", 

> 3 Bete 2 ’ i d, ’ ; 
C) Institutional subscription, $52 } Oates ue abe a 
Outside US. add $20 for air service ; 
C Payment enclosed CF) Bill me CO Charge to my: } while (missed) ; /* end of do loop to train network my 
C) MasterCard O Visa 

stop=time (NULL) ; /* get stop time ed 


NOI a ee a 
[ RRKKKKKKKKKKKKKKK print end of run summary REKKKKKKKKKKKKKKKKKKKKKKK / 
Signature 





printf ("\n"); 











Name — printf ("\ntraining completed in %ld seconds.\n", stop-start) ; 

Address printf("\nnumber of committees: %d",ncom +; 
printf ("\nnumber of tlus total: %d",ncom*ntlu )? 

City printf("\nnumber of elements: $d",ncom*ntlu*dim be 
printf ("\nnumber of connections: $d",totcons () he 


Sale oa Tip 

FOR FASTER SERVICE, CALL TOLL FREE 

1-800-526-5368 

IN NEW JERSEY, CALL COLLECT 201-342-6707 
ye 


printf ("\n"): 


printf ("\nnumber of passes thru file: $d",npass); 
printf("\nnumber of patterns in file: $d",pats so far ); 


--—-----------—--- 


sie eh  e tege ES te A -0310 printf ("\nnumber of mis-recognitions: $d",pats missed }); 
: printf ("\nnumber of tlu adjustments: $d",tlus trained); 
Circle no. 299 on reader service card. printf ("\nmaximum element magnitude: $%f", (float)maxel); 
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SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for FEB. 22, 1987 


ICs PROMPT DELIVERY!!! 





printf ("\n"); OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
Mbit 1000Kx1 100ns 
51258 *256Kx1 100ns 
4464 64Kx4 150 ns 
41256 256Kx1 100 ns 
41256 256Kx1 120 ns 
41256 256Kx1 150 ns 
4164 64Kx1 150 ns 


radius statistics (); /* print ending radius statistics */ 


[RRR KK RE KKK RK KEK KEE KK KKK KKK KKK KKK KEK KKK KEKE KEKE EKKKKKKKKKKKKKKKKKKKK 
* 


S 
uw 
Sd 
<= 
= 
Cc 
o 
N 
Ww 
Qa 
 § 
_ 
.) 
a. 
— 
a) 
© 
ce 
Ww 
<= 
= 
© 
= 
=< 
J 
> 
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IBM PC/XT, Compag Portable & Plus; hp Vectra 


* MAIN rr. 8 ram sta £. ts Here EPROM So 
* 3 27512 —6akx8. 200 ns Se 
RRKEEK KEKE KEKE EEK EK KER EEK EEE KEKE ER KERKEREEKEKEKEKKKEEREKEKKKEKKKKKKKKEKERK / 27C256 32Kx8 250 Ns as 
27256 32Kx8 250 ns yo 

27128 16Kx8 250 ns $c 

RKEKKKKKKKK RKKKKKKKKEKKK =s 

main (paramct, params) / main program entry point / 27C64 8kx8 150ns oS 
2764 8Kx8 250 ns r 

int paramct; /* number of parameters on command line ny STATIC RAM oe 
char *params[]; /* array of pointers to strings for each param */ 62256 32Kx8 120ns $3 

6264LP-15 s8kx8 150ns 
{ Fat 43 ye vg iabl OPEN 61/2 DAYS, 7 an-10 pm: SHIP VIA FED-EX ON SAT. 
ek: ee a eee f 
SAT DELIVERY | MasterCard/VISA or UPS CASH COD 
banner (); /* print program name, version, & release date */ INCLUDEDON | Factory New, Prime Parts LiPo 
Receives sy. | MICROPROCESSORS UNLIMITED, INC. 
mM wn is x Th: Std Air $6/4 ibs | 24,000 S. Peoria Ave.. z 

printf ("\nInvoked By:"); /* show how the program */ oe CECE Cie vad (918) 267 4961 

for (i=1;i<=paramet; i++) printf (" $s",params[i}); . Wes started up! *7 feat of Povicas osc ck aumiianeibe es ea nether ae 
printf(“\nelement type is %ts",eltype); /* show arithmetic used */ $1.00 for packing materials Orders received by 9 PM CST can usually be delivered the next 


morning, via Federal Express Standard Air («« $6.00, or Priority One (« $13.00! 





printf ("\n"); 


Circle no. 105 on reader service card. 
[RAKE KRKKKKKKERKKKKKKKE parse the command line RRKKKKKEKKKKKKKK KKK KKK / 


function libraries 


if (paramct==1) help(); /* if no params, then give help and quit ! */ disassemblers 
patname[0]=0; /* else set pattern filename to null string */ compilers 
text editors 
for (i=l;i<paramct;i++) { /* for each parameter... — saattihers 
if ('-'==params [i] [0]) /* is it an option ? *y/ Ce 
switch (toupper(params({i]{1])) { /* yes, which one ? */ shee ae e Users’ Group 
bulletin boards : 
Librar 
kase('O', start _over=TRUE) /* strategy =f aoe Y 
kase('L',log level=atoi (&params(i}[2])) /* log detail x / compiler compilers 
kase('T', ntlu=atoi (&params[i} [2]})) /* # of TLUs */ window packages A Directory 
kase(‘R', radius=atof (&params[i] [2])) /* init radius */ assemblers nl Sable Domain 
kase('I', corr incr=atoi («params(i][2])}) /* fixed incr */ games C Source Code 
kase('A', absolute=TRUE) /* absolute ef tutorials 
kase('F', fraction=atof(&params[{i][(2])) /* fractional ve 4 ahh pankooes 
} link editors 
[RRR KKKKKEKEKKEKKKKKK Parse Filename FHAAAKHKKKKKKKEKKKRKR ERK KERR EERE / engages of 
cross compilers on ovet 1 
in 
else if (index(éparams[1][0],'.')) /* is '.' in it? */ sates again 
move (&params [i] [0], patname) ; /* yes, pattern file x] function ibreries . rs) GrouP 
disassemblers ig Cypht ve 67460 
else move(".PAT", /* no, default extension is */ compilers McPherson. 65 


316) 241 
move (&params [i] [0],patname) ); /* *.pat' for pattern file */ text editors ' 





Circle no. 181 on reader service card. 
[RRKKKKKKKKKKKKKK check for command line errors KHEKKKKKEKKKK KKK RK K KEK / 
if (patname[0]==0) /* check for missing pattern file name ny 


abort ( 
“pattern filename not specified!"); 


if (ntlu==0) /* check for missi E j 
t dipeia chec or missing number of TLUs */ | subscription 
“number of TLUs per committee not specified!"); > 
roblems? 


No Problem! 


[RRKKKKKKKKKKKKKKKKKKKKKKK open pattern file RHEKKKKKKKKKKKKKKEKKKKKKK EK / 





if (! (pat=fopen (patname, "r") )) /* if open fails, abort =< 
abort ( 
“can't open pattern file!"); 
. s 
/******EEK Derform the training and recognition algorithm ******xeexn/ Give us a call and we'll 


straighten it out. Today. 


/*. S8eand(1}3°-, */ /* make random number generator repeatable -- 
Sees d, i ; : : 
his may be remove if desired, after the Outside California 


* debug phase is complete! */ 
CALL TOLL FREE: 800-321-3333 
siloam({); /* call the outside control structure for the 


* trainable pattern recognizer. */ Inside California 


} yt CALL: 619-485-6535 or 6536 
End Listing 
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A TRAINING 
COURSE FOR 
PEOPLE WHO 








ee eeEeeeEeEeEeEeEeEeEeEeEeEeEeEeEEEEEEEEEEEEEEEE—EOeoOoOoeeeeeeeoererererereree————EEEOEEE—————O——E—————————————E—OOOOOEeeeeOo 





Intel is offering three new 
courses on the world’s most pow- 
erful 32-bit microprocessor- 
the 80386. Plus a new intensive 
course on the 80286. 

These in-depth learning sessions are 
designed for engineers and programmers 
who want to utilize the full power and 
potential of these lightning-fast chips. 

Lectures are combined with hands-on 
workshops to provide real-life situations. 
Allowing you to apply new concepts and 
techniques immediately 

Courses include: 

80386 System Software 

80386 Programming using ASM386 

High-end Microprocessor Hardware 

Design 
The new 80286 Microprocessor 
Family Course 


© 1986 Intel Corporation 
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Complete training sessions and 
courses can be scheduled at your 
facility, or at our training centers. 
In addition to training, Intel offers 
hardware/software support and 
consultants. 

For more complete course informa- 
tion and schedules, call toll-free (800) 
548-4725. 

Or to register now, contact one of the 
Intel Training Centers listed below 


Intel Training Centers 


Boston Area, Westford Corp. Ctr. San Francisco Area 

Three Carlisle Road, 1st Floor 2700 San Tomas Expressway 
Westford, MA 01886 Santa Clara, CA 95051 

(617 ) 692-1000 (408) 970-1700 


Chicago Area Washington, D.C. Area 

300 N. Martingale Road, Suite 300 7833 Walker Drive, 5th Floor 
Schaumburg, IL 60194 ‘Greenbelt, MD 20770 

(312) 310-5700 (301) 220-3380 


intel 
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“How to protect your software 
by letting people copy it?’ 


By Dick Erett, President of Software Security 





Inventor and 
entrepreneur, 
Dick Erett, 
explains his 
company’s 
4 / view on the 
protection of intellectual 


property. 
cA even sophisticated 
software develop- 

ment companies and the 

trade press seem to be miss- 

ing or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are Clear. You can give 
product away to a segment 








crucial point that 


PEAT geet.» etaaeet SAN Via e SO tore foe 


Hard Disk Installation : Simply copy progres: disk 
to hard disk using DOS Command - Copy A:*. t: 





the program diskette as you wish, 





program files. 










rogram Back-ups : You may make as many copies of 





Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories containing 


Networks : This product may be 
rks. Follow the same installation 
102 of this manual. The Block 

with the normal operation of any 





Soon all software installation procedures will be as straightforward as this. 


<= 
ee 






The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


‘... giving your software 
away is fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 

We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘...eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
Clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 


The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK is transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘... possibilities... 
limited only by your 
imagination...”’ 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 





oftware 


CCUF: Ml Yine. 


&70 High Ridge Road Stamford. Connecticut 


06905 


203 329 8870 


Circle no. 170 on reader service card. 
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C CODE FOR THE PC 


source code, of course 


ee 


Panache C Program Generator . 
THe PIGuer se oe eso. 


QC88s C Compiler . 
GConcuorrent (esd. 


Biggerstaff’s System Tools 
Cadérs: Prolog in C352. 
Transiate Rules to C= :274,-4 5. . 
ICON String Processing Language 
Bia, foe i. eee es Se es ae 
YACC & PRP. 2%. 

tiny-c interpreter & shell 

C Te6is. ee 


The Austin Code Works 
11100 Leafwood Lane 
Austin, Texas 78750-38409 
(512) 258-0785 


Free shipping on prepaid orders MasterCard/VISA 
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WINDOWS — MENUS — DATA ENTRY — SCREENS 


prototyping easy an ngs ta Ks | cosine 


3. DATA ENTRY 1. WINDOWS: for on-line help, 
Just define your data entry fields and menus, data entry. Up to 26 level 
let HIGH SCREEN™ do the job: deep. ase 
.integer/reallalphabetical/date/chosen | 2. MENUS: any kind (including pull- 
characters. format/range/upper case- down menus), also for batch files. 
lower case convertionjjustify left) | 3. DATA ENTRY: automatic field 
right/center/size/color. required input! checking: format, type, range... 
auto-tabbing/password/Help message. field by field or full screen. 
Automatic error handling. Cursor and Error handling. 

arrow keys management. Field by fied | 4. SCREENS: full featured screen 
or full screen checking mode for editor. Language and application 
increased flexibility. independent. 


Royalty free, not copy protected, 30 day money back guarantee, trade up available. 


ap Uk: ==HIGH SCREEN 
PC/SOFT Product Line Se AEE I 
500 Sutter St., Suite 222 HIGH SCREEN™ is $129 (CA res. add tax) 
San Francisco, CA 94102 S&H USA $5, CND $10 
(415) 397-4666 Visa, M/C welcome 





PASCAL C, dBASE, BASIC, COBOL, ASSEMBLER, ete. 


Circle no. 372 on reader service card. 
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Listing One (Text begins on page 42.) 


REM Mycin-like expert system for Amiga BASIC 
REM by Richard Grigonis 


DIM AND. COMPONENT (12),AT.FACTOR.FOR.OR. COMPONENT (12) 

DIM OR.COMPONENT (12), TRAIL(30),HUMAN. INPUTS (4) 

DIM MESSAGES (60), WHICH.EQ$ (8) , BLANKS (19) 

DIM HYPOTHESIS(20) ' CHANGE THIS NUMBER IF MORE THAN 20 ANIMALS 


no=0:yes=1 
DATA 1,is an albatross 


albatross=1 

DATA 2,is a penguin 
penguin=2 

DATA 3,is an ostrich 
ostrich=3 

DATA 4,is a zebra 
zebra=4 

DATA 5,is a giraffe 
giraffe=5 

DATA 6,is a tiger 
tiger=6 

DATA 7,is a cheetah 
cheetah=7 


DATA 8,flies well 
flies.well=8 

DATA 9, swims 

swims=9 

DATA 10,is black and white 
black.and.white=10 

DATA 11,cannot fly 

cannot. fly=11 

DATA 12,has a long neck 
long. neck=12 

DATA 13,has black stripes 
black. stripes=13 

DATA 14,has long legs 
long. legs=14 

DATA 15,has dark spots 
dark.spots=15 

DATA 16,has a tawny color 
tawny.color=16 

DATA 17,is a bird 

bird=17 

DATA 18,is an ungulate 
ungulate=18 

DATA 19,is a carnivore 
carnivore=19 

DATA 20,is a mammal 

Mamma 1=20 

DATA 21,has hair 

has. hair=21 

DATA 22,gives milk 
gives.milk=22 

DATA 23,eats meat 
eats.meat=23 

DATA 24,has pointed teeth and claws and forward pointing eyes 
teeth.claws.eyes=24 

DATA 25,is a mammal and has hoofs 
mammal.and.hoofs=25 

DATA 26,is a mammal and chews cud 
mammal .and.chews.cud=26 
DATA 27,has feathers 
feathers=27 

DATA 28,flies and lays eggs 
flies.and.lays.eggs=28 
DATA 29, lays eggs 
lays.eggs=29 

DATA 30, flies 

flies=30 

DATA 31,chews cud 
chews.cud=31 

DATA 32,has hoofs 

hoofs=32 

DATA 33,has forward pointing eyes 
front.eyes=33 

DATA 34,has claws 

claws=34 

DATA 35,has pointed teeth 
pointed.teeth=35 

DATA -1,END OF DATA 


REM TOP-LEVEL HYPOTHESES (ROOTS) OF AND/OR TREE: 
HYPOTHESIS (1)=albatross 

HYPOTHESIS (2) =penguin 

HYPOTHESIS (3)=ostrich 

HYPOTHESIS (4)=zebra 

HYPOTHESIS (5)=giraffe 

HYPOTHESIS (6)=tiger 

HYPOTHESIS (7)=cheetah 

number .of.hypotheses=7 


REM DETERMINE TOTAL NUMBER OF FACTS: 

number .of.facts=0 

WHILE fact <> -1 
READ fact,MESSAGES 
number.of.facts=number.of.facts+l 

WEND 

number.of.facts=number.of.facts-1 

DIM BEEN .EXAMINED. BEFORE (number.of.facts) ,OUTPUT.CF 


(number .of. facts) 


Start: 
FOR A=0 TO UBOUND (OUTPUT.CF) 
OUTPUT .CF (A) =0: BEEN. EXAMINED . BEFORE (A) =0 
NEXT A 
PRINT "I'm a backward-chaining expert system." 
PRINT “Please think of one of the";number.of.hypotheses 
PRINT “animals listed below. I will ask you" 
PRINT “questions about the animal and compute" 
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PRINT "the certainty of it being one" 
PRINT “of the following™;number.of.hypotheses;"animals:":PRINT 
FOR fact=1 TO number.of.hypotheses 
which. fact=HYPOTHESIS (fact) 
GOSUB Find.message:PRINT "ANIMAL ";MESSAGES 
NEXT fact 
PRINT 


10030 PRINT "DO YOU WANT: “ 

PRINT “AN EXHAUSTIVE SEARCH (1) OR," 

PRINT “STOP-ON-SUCCESS (2)? ":PRINT 

PRINT "Press the NUMBER of YOUR SELECTION" 

PRINT “and then press the RETURN KEY." 

halt.on.success=0: INPUT halt.on.success 

IF O>halt.on.success OR halt.on.success>2 
THEN PRINT "TRY AGAIN!"":GOTO 10030 


10050 REM PROVE HYPOTHESES 

GOSUB Prove.albatross 

IF halt.on.success=2 AND OUTPUT.CF(albatross)=1 THEN 10165 
GOSUB Prove. penguin 

IF halt.on.success=2 AND OUTPUT.CF(penguin)=1 THEN 10165 
GOSUB Prove.ostrich 

IF halt.on.success=2 AND OUTPUT.CF(ostrich)=1 THEN 10165 
GOSUB Prove.zebra 

IF halt.on.success=2 AND OUTPUT.CF(zebra)=1 THEN 10165 
GOSUB Prove.giraffe 

IF halt.on.success=2 AND QUTPUT.CF(giraffe)=1 THEN 10165 
GOSUB Prove.tiger 

IF halt.on.success=2 AND OUTPUT.CF(tiger)=1 THEN 10165 
GOSUB Prove.cheetah 

IF halt.on.success=2 AND OUTPUT.CF(cheetah)=1 THEN 10165 


10165 REM DISPLAY RESULTS 
CLS 
PRINT “HERE ARE THE COMPUTED CERTAINTY FACTORS:" 
PRINT "(Correct animal has highest positive CF#)":PRINT 
FOR fact=1 TO number.of.hypotheses 
which. fact=HYPOTHESIS (fact) 
GOSUB Find.message 
BLANKS=SPACES$ (19) 
MESSAGES=MESSAGES+MIDS (BLANKS, 1, LEN (BLANKS) —LEN (MESSAGES) ) 
PRINT “ANIMAL ";MESSAGES;" CF="";OQUTPUT.CF (which. fact) 
NEXT fact 
PRINT:PRINT “TO GO AGAIN, press the RETURN button." 
INPUT HUMAN.INPUTS:PRINT 
GOTO Start 


REM SUBROUTINES TO COMPUTE CF'S (IN ALPHABETICAL ORDER) 
Compute.and.clause.cf: 

GOSUB Find. lowest.cf.branch 

GOSUB Multiply.lowest.cf.by.at.factor 

GOSUB Trim.to.zero 

OUTPUT.CF(TRAIL(depth) )=new.cf 
RETURN 


Compute.or.clause.cf: 
GOSUB Multiply.component.cfs.by.at.factors 
GOSUB Test. for.a.positive.number 
GOSUB Run.or.equation 
GOSUB Trim.to.zero 
OUTPUT .CF (TRAIL (depth) ) =new.cf 
RETURN 


Dec.stack: 
depth=depth-1:RETURN 
Deduce: 
which. fact=TRAIL(depth) :GOSUB Find.message 
PRINT:PRINT “The fact that the animal “ 
PRINT MESSAGES;" (FACT # "; fact.number;")" 
PRINT “Now has a Certainty Factor of: “;OUTPUT.CF(TRAIL(depth) ) 
PRINT:GOSUB Dec.stack:GOSUB Delay 
RETURN 


Delay: 
FOR D=1 TO 10000:NEXT D:RETURN 
Explain.why: 
which. fact=TRAIL(1):GOSUB Find.message:CLS 
PRINT "I AM INVESTIGATING THE HYPOTHESIS" 
PRINT “THAT THE ANIMAL..." 


PRINT MESSAGES;" (FACT # "; fact.number;")":PRINT 
IF depth=1 THEN 
PRINT "...BY FIRST ASKING YOU.":PRINT 


PRINT “If you are not sure (-8 < CF < 8)" 
PRINT "then I will investigate this hypothesis further." 
ELSE 
FOR A=2 TO depth 
which. fact=TRAIL(A) 


GOSUB Find.message:PRINT “| .BY PROVING THAT THE ANIMAL..." 
PRINT MESSAGES;" (FACT # "; :fact. number;")":PRINT 
NEXT A 
PRINT "...BY ASKING YOU." 
END IF 


PRINT:INPUT "PRESS RETURN KEY TO CONTINUE",HUMAN. INPUTS 
RETURN 


Find. lowest.cf.branch: 
lowest.number=OUTPUT .CF (AND .COMPONENT (1) ) 
FOR branch=1 TO number.of.and.clause.components 
number.to.test=OUTPUT.CF (AND.COMPONENT (branch) ) 
IF lowest .number>number.to.test 
THEN lowest.number=number.to.test 
NEXT branch 
RETURN 


Find.message: 
RESTORE 
FOR C=#1 TO which. fact 


(continued on next page) 
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What do Experts Say About 
muLiSP? 









POWERFUL: 
and it has the 
‘y for creating real 
products. ...muLISP-86 contains much 


while still 


compactness.” 
—Gary Rader, President, Grandmaster, Inc., 
Spokane, Washington. 
Product: Office Automation Toolkit. 


FAST: “..J/ have relied on its compactness 
and a From my perspective these 
properties make 






—David G. Cain, Program Manager, 
Nuclear Power Division, 
Electric Power Research Institute, 
Palo Alto, California. 
Product: SMART (expert system shell). 


PROFESSIONAL: “Due to the compactness 
e were able 
to design an expert system shell that 
incorporates so many features normally 
only found on much larger machines. 







—Peter van Lith, President, Lithp Systems BV, 
Landsmeer, The Netherlands. 
Product: ACQUAINT (expert system shell). 


HIGH-CALIBER: 
_I doubt that other microcomputer 
implementations of LISP which are 
now available could have been used as 
effectively as muLISP in the development 


of my symbolic manipulation package.” 
—Frederick J. Ernst, President, FJE Enterprises, 
Potsdam, New York. 
Product: the Grad Student: Rational Calculator. 





COST-EFFECTIVE: “Jn 1983, I wrote 
muPROSPECTOR in muLISP because, 
at the time, muLISP had the most to offer 
ata rene price. The times have not 





Reston, Virginia. 
Product: the muPROSPECTOR 
Mineral Consultant System. 


Contact Soft Warehouse for a detailed description of muLISP 
and muMATH, the symbolic mathematics system for 
personal computers. 


“| Sort 





Founded 1979 


L—! Warchouse: 


3615 Harding dm taucaaeror: Suite 505 « Honolulu, Hawaii 96816 
(808) 734-5801 after noon PST 





Circle no. 333 on reader service card. 
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AUSTRALIA’S FAVORITE 


° CCOMPILER 


Now Available in the U.S.A. 





Features: 
*x Smallest code 

from ANY compiler. 
* Macro assembler, linker, 

librarian, debugger included. 
* Can produce ROM code. 
* Full library source. 
* Excellent diagnostics. 


AND MUCH MORE - 
THIS IS A COMPLETE 
PRODUCTION-QUALITY 
COMPILER 


HITECH 


rT. 


The leading edge of Software Technology 







5129 3 


d 
postage an 
plus handling 





Order trom: SOFTFOCUS 


1343 Stanbury Drive, Oakville 
ONTARIO Canada L6L2)J5 
(416) 825 0903 or (416) 844 2610 


JAPAN: AUSTRALIA: 
Southern Pacific Ltd. Hi-Tech Software 
(045) 314 9514 (07) 38 6971 





Circle no. 376 on reader service card. 


yes @ There isa 
firm that can meet your needs 


across the board in software 
quality control and management! 













Who!? Software Research, Inc. (SR). 


We're the hi-tech software quality control firm. We specialize in 
services and tools devoted to software quality control. 
SR has skills and experience in: 

_} product evaluation, testing, and enhancement 

(J compatibility and regression testing 

[J language validation and performance tuning 

L] critical applications testing 
SR's services are top notch, based on the latest methods and 
techniques. 
SR’s tools can help you directly: 

LJ] SMARTS™ to organize and run regression tests 

(] TCAT™ and S-TCAT™ to measure test completeness 

LJ CapBak™ to capture and play back tests 

L] TDGEn™ to generate test cases 
SR is the pioneer in software quality. We've served business, 
research, and governments around the world since 1977. 


Interested? Call SR today for more information. Or, send us 
your business card and we'll call you! 
























Software Research, Inc., 625 Third Street, San Francisco, CA 94107 
Phone: (415) 957-1441 Telex: 340-235 (SRA SFO) 
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Listing One 
(Listing continued, text begins on page 42. ) 


READ fact.number, MESSAGES 
NEXT C 
RETURN 


Inc.stack: 
depth=depth+1:TRAIL(depth)=current. fact 
RETURN 


Multiply.component.cfs.by.at.factors: 
FOR branch=1 TO number.of.or.clause.components 
new. cf=OUTPUT.CF (OR. COMPONENT (branch) ) 
*AT.FACTOR.FOR.OR.COMPONENT (branch) 
GOSUB Trim.to.zero 
OUTPUT .CF (OR. COMPONENT (branch) )=new.cf 
NEXT branch 
RETURN 


Multiply.lowest.cf.by.at.factor: 
new.cf=lowest.number*at. factor. for.and.clause 
RETURN 


Negative.or.equation: 
new.cf=1 
FOR branch=1 TO number.of.or.clause.components 
new.cf=new.cf* (1+OUTPUT.CF (OR.COMPONENT (branch) ) ) 
NEXT branch 
new.cf=-l+new.cf 
RETURN 


Positive.or.equation: 
new.cf=1 
FOR branch=1 TO number.of.or.clause.components 
new.cf=new.cf* (1-OUTPUT.CF (OR.COMPONENT (branch) ) ) 
NEXT branch 
new.cf-l-new.cf 
RETURN 


Run.or.equation: 
IF WHICH.EQS="POSITIVE" THEN 
GOSUB Positive.or.equation 
ELSE 
GOSUB Negative.or.equation 
END IF 
RETURN 


Test. fact. for.human.input: 
leave=no:GOSUB Inc.stack 
IF BEEN.EXAMINED.BEFORE (current. fact) =yes THEN leave=yes:GOSUB 
Dec.stack: RETURN 
BEEN . EXAMINED .BEFORE (current. fact)=yes 
4156 which. fact=current. fact 
GOSUB Find.message 
4160 CLS:PRINT" (FACT # “;fact.nunBer;")":PRINT 
PRINT "ON A SCALE OF -10 TO 10 WHERE," 
PRINT " 10=absolutely certain it's true" 


PRINT “ 8=almost certain" 

PRINT " 6=probably" 

PRINT “ 3=slight evidence" 
PRINT “ O=*unknown" 

PRINT " -6=probably not" 

PRINT “ -8=almost certainly not" 


PRINT "-10=definitely not" 

PRINT:PRINT“TO WHAT DEGREE DO YOU BELIEVE THAT" 

PRINT "The animal ";MESSAGES;"2":PRINT 

PRINT “TYPE NUMBER AND PRESS RETURN KEY," 

PRINT "OR TYPE “why?' AND PRESS RETURN KEY" 

INPUT HUMAN.INPUTS 

HUMAN . INPUT$=UCASES (HUMAN. INPUTS) 

IF HUMAN. INPUTS="WHY" OR HUMAN .INPUTS="WHY?" 

THEN GOSUB Explain.why: GOTO 4156 

I=VAL (HUMAN. INPUTS) 

IF -10>I OR I>10 THEN GOTO 4160 

I=I/10:OUTPUT.CF (current. fact) =I 

IF -.8>I OR I>.8 THEN leave=yes:GOSUB Deduce 
RETURN 


Test. for.a.positive.number: 
WHICH. EQS$="NEGATIVE" 
FOR branch=1 TO number .of.or.clause.components 
number .to.test=OUTPUT.CF (OR. COMPONENT (branch) ) 
IF number.to.test>0O THEN 
WHICH . EQ$="POSITIVE": branch=number .of .or.clause.components 
NEXT branch 
RETURN 


Trim.to.zero: 
IF -.2<=new.cf AND new.cf<=.2 THEN 
new.cf=0 
ELSEIF new.cf>=.8 THEN 
new.cf=1 
ELSEIF new.cf<=-.8 THEN 
new.cf=-] 
END IF 
RETURN 


REM ***DEDUCTIVE ROUTINES FOLLOW*** 
Prove.albatross: 
current. fact=albatross:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Prove.bird:GOSUB Prove. flies.well 
number.of.and.clause.components=2 
AND . COMPONENT (1) =bird:AND.COMPONENT (2) =flies.well 
at.factor.for.and.clause=1 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.penguin: (continued on page 78) 
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Separate Compilation 
w/inter-module typechecking 
Native Code Generation 

Large Memory Model Support 
Most Powerful Runtime Debugger 
Comprehensive Module Library 
Maintainability 

Translator from Turbo and 

ANSI Pascal 


WIN A FREE TRIP TO 


Switzerland 








HOMELAND OF MODULA-2 
Return your Modula-2 Registration Card or 
a reasonable facsimile* postmarked between 
March 1, 1987 and May 31, 1987 to be included 
in a once-only drawing! 


Grand Prize: One week excursion for 2 in 
Zurich, Switzerland including a guided tour of 
ETH, the University where Modula-2 was 
created by Niklaus Wirth. European custom- 
ers may substitute a trip to Silicon Valley, 
California. 

Second and Third Prizes: LOGITECH C7 
Mouse or LOGITECH Bus Mouse with Paint 
& Draw software—a $219 value, absolutely 


free! 
*Write to Logitech, Inc. for a registration card 
facsimile. 


Everything you need to begin producing reliable 


maintainable Modula-2 code.Includesthe Compiler —_ 


with 8087 support, integrated Editor, Linker, and 
BCD Module. We're also including FREE our Turbo 
Pascal to Modula-2 Translator! 


~ WIZARDS’ PACKAGE $199 

This package contains our Plus Compiler—for 
professional programmers or for those who just want __ 
the best. The Plus Compiler with Integrated Editor __ 
requires 512K and takes advantage ofthelarger 
memory to increase compilation speed by 50%. Our _ 
Turbo Pascal to Modula-2 Translator is also includ-_ _ 
ed at no extra charge. 











MAGIC TOOLKIT $99 


We've put our most powerful development tools - I 


into one amazing Toolkit for use with either the : 
Apprentice or Wizards packages. Highlighted by our 

Runtime Debugger, the finest debugging tool avail- 
able anywhere, the Toolkit also includes our Post | 
Mortem Debugger, Disassembler, Cross Reference —_—/ 
utility and Version which keepstrack of different —_ 
versions of one program. Our MAKE Utility figures __ 
out module dependencies and automatically selects _ 
those affected by code changes to minimize recom- _ 
pilation and relinking. We also provide source code 
of our major library modules for you to customize—_ 
or just play with. 


WINDOW PACKAGE $49 

Now you can build true windowinginto your — 
Modula-2 code. Features virtual screens, color sup- 
port, overlapping windows and a variety of borders. 


ROM PACKAGE AND CROSS | 

RUN TIME DEBUGGER $299 
For those who want to produce rommable code. 

You can even debug code running in ROM from 

your PC. 





Turbo Pascal is a registered trademark of Borland International. 
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APPRENTICE PACKAGE $99 



















To ones an ioe call 
toll-free: 


ieee at 


YES! I want the spellbinding power 
e of LOGITECH Modula-2! 


L Apprentice Package $99 
CL] Wizards’ Package $199 
LO Magic Toolkit $99 
LC) Window Package $49 
LCL) ROM Pkg/Cross RTD $299 


Add $6.50 for shipping and handling. Calif. residents 
add applicable sales tax. Prices valid in U.S. only. 


Total Enclosed $ 
CL] VISA 0 MasterCard 0) Check Enclosed 


Card Number Expiration Date 

Signature 
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Address 

City State 
Phone 


e 


om LOGITECH 


LOGITECH, Inc. 
805 Veterans Blvd. Redwood City, CA 94063 
Tel: 415-365-9852 
In Europe: 
LOGITECH SA, Switzerland 
Tel: 41-21-879656 e Telex 458 217 Tech Ch 


In Italy: 
Tel: 39-2-215-5622 











Listing One 
(Listing continued, text begins on page 42. ) 


current. fact=penguin:GOSUB Test. fact. for.human. input 
IF leave=yes THEN RETURN 
GOSUB Prove.bird:GOSUB Prove.cannot.fly 
GOSUB Prove.black.and.white:GOSUB Prove. swims 
number.of.and.clause.components=4 
AND .COMPONENT (1) =bird:AND.COMPONENT (2) =cannot.fly 
AND .COMPONENT (3)=black.and.white:AND.COMPONENT (4)=swims 
at. factor.for.and.clause=.8 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.ostrich: 
current. fact=ostrich:GOSUB Test. fact. for.human.input 
IF leave~yes THEN RETURN 
GOSUB Prove.bird:GOSUB Prove.cannot.fly 
GOSUB Prove.black.and.white:GOSUB Prove.long.neck 
number.of.and.clause.components=4 
AND .COMPONENT (1) =bird:AND.COMPONENT (2) =cannot. fly 
AND . COMPONENT (3)=black.and.white:AND. COMPONENT (4) =long.neck 
at.factor.for.and.clause=. 85 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove. zebra: 
current. fact=zebra:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Prove.ungulate:GOSUB Prove.black.stripes 
number.of.and.clause.components=2 
AND. COMPONENT (1) =ungulate:AND.COMPONENT (2) =black.stripes 
at.factor.for.and.clause=.8 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.giraffe: 
current. fact=giraffe:GOSUB Test.fact.for.human. input 
IF leave=yes THEN RETURN 
GOSUB Prove.ungulate:GOSUB Prove.long.neck 
GOSUB Prove.long.legs:GOSUB Prove.dark.spots 
number.of.and.clause.components=4 
AND. COMPONENT (1) -ungulate: AND.COMPONENT (2) =long.neck 
AND. COMPONENT (3) «long.legs:AND.COMPONENT (4) -dark.spots 
at.factor.for.and.clause=.85 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.tiger: 
current. fact=tiger:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 


GOSUB Prove.mammal:GOSUB Prove.carnivore 
GOSUB Prove.black.stripes:GOSUB Prove.tawny.color 
number.of.and.clause.components=4 
AND. COMPONENT (1) =mammal: AND. COMPONENT (2) =carnivore 
AND . COMPONENT (3)=black. stripes :AND.COMPONENT (4) =tawny.color 
at.factor.for.and.clause=.95 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.cheetan: 
current. fact=cheetah:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Prove.mammal:GOSUB Prove.carnivore 
GOSUB Prove.tawny.color:GOSUB Prove.dark.spots 
number.of.and.clause.components=4 
AND. COMPONENT (1) =mammal:AND.COMPONENT (2) =carnivore 
AND . COMPONENT (3) =tawny.color:AND.COMPONENT (4) =dark.spots 
at.factor.for.and.clause=.95 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove. flies.well: 
current.fact=flies.well:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 
RETURN 
Prove. swims: 
current. fact=swims:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 
RETURN 


Prove. black.and.white: 
current. fact=black.and.white:GOSUB Test. fact.for.human.incut 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.cannot.fly: 
current.fact=cannot.fly:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.long.neck: 
current. fact=long.neck:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.black.stripes: 
current. fact=black.stripes:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 


GOSUB Deduce (continued on page 82) 


First true incremental interactive compiler for Edinburgh Prolog 


ALS 


Prolog 1.0 


Needs no interpreter: compiles full Prolog “on the fly” 


Fast compiler execution and very fast code — LIPS on nrev: 
PC,XT: 3400 AT:8MHz:14000 10 MHz: 17000 
VAXMate: 14000 Compag 386: 31000 


Modules, complete garbage collection, tail recursion 

Standard debugger, assert, clause, etc. operate on compiled code 
C Interface, real strings, screen control, interrupt handling, DCGs 
Virtual code space 


Add on tools: Direct Dynamic Interfaces to dBase and R:Base 
Macintosh versions available shortly 


Real 
Prolog 
Ke) 


Real 
Applications 
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VISA, MasterCard, Drafts on U.S. Banks 


Professional Version: $499 
Personal Version: $199 also available 


For more information or to order call Customer Service 
(315) 471-3900 


Applied Logic Systems, Inc. P.O. Box 90, University Station 


Syracuse, NY 13210-0090 USA 
315-471-3900 
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WERE LOOKING FOR 
. A LASTING RELATIONSHIP 


When we founded Programmer's Con- 
nection in 1984, we dedicated our- 
selves to providing our customers with 
personal service, low prices and the 
highest level of support possible. Our 
goal was to make every customer a 
lifelong customer. 


And we're close to our goal. According 
to the results of our customer service 
questionnaire, 99% of those responding 
said they would buy from us again. 


Last October, we began including our 
questionnaire in every outgoing pack- 
age. It asks our customers to rate each 
area of service and invites them to tell 
us what we need to improve as well as 
what we're doing right. 


Since then, we received almost a 
thousand responses with many valu- 
able comments and suggestions. And 
we re quite pleased that so many of 
them were highly favorable. 


So call Programmer's Connection today 
and find the lasting relationship you've 
always been looking for. You'll be glad 
you did! 





Turn the page for our latest advertised price list. 


Here are some comments offered by people responding to our customer service questionnaire: 


“If only all the companies | used 
were as good as Programmer’s 
Connection!” 


“The best service for professional 
users in the country. 


“As a dealer specializing in pro- 
gramming, I’ve found that you are 
my best source.” 


“Thank you for all your courteous 
assistance. 


“Programmer’s Connection is real- 
ly outstanding. Good prices, 
prompt shipment, no extra fees. 
Wonderful 30day trial.” 


ce . e,° : 

There is a lot of competition in 
your field, but Programmer’s Con- 
nection is the best!” 


“It’s a pleasure to deal with a 
company that understands the 
needs of the computer profes- 
sional. Thanks.” 


“You're the best in the business! 
Keep it up! 


“Your service and prices are out- 
standing. I’m glad | found you.” 


“Keep up the good work. | like the 
way you Stay up to date.” 


“] appreciate your courteous, reli- 
able service. 


“This method of purchasing soft- 
ware allows good selection and 
convenience. 


“Good products and great prices!” 


“It’s unusual to find a company 
that offers the best price and the 
best service. Programmer’s Con- 
nection does — keep up the good 
work!” 


“You have the best prices.” 


“1 particularly like your pricing 
policy — lower than anyone else 
and no extras for shipping, credit 
cards, etc. Keep up the good 
work!” 


“With the service | have received 

from you, | am sure to look at Pro- 
rammer’s Connection next time! 
uy. 


“I appreciate your professional 
attitude. It’s refreshing. 


“Class “A” performance!” 


“Very pleasant, helpful order taker. 
I’m impressed.” 


“You are the FIRST place | go for 
professional software products. 
Thanks! (Especially for your 30-day 
trial service).” 


“Product was out of stock, but 
shipped exactly as | was told it 
would be. Good Job!” 


“You provide a great service tome 
as a professional programmer. You 
are #1 on my list. Keep up the 
excellent work!” 


“Your company is a pleasure to do 
business with. 


“Thanks for providing prompt, reli- 
able service and delivery.” 


“I’m extremely happy — just placed 
my 6th order.” 


“Anything you carry, | buy from 
you. You can teach your competi- 
tion a lesson! 


“You have great service! You have 
§ 3+? 
the best prices! 


“An oasis in the mail-order desert. 
Keep up the excellent work!” 


“Amazing — no problems — I'll 
be back.” 


“Probably the best service of any 
well advertised company.” 


“1 always recommend you when 
asked where to buy software.” 


“| have not found any mail order 
company with such competitive 
prices whose people are as helpful 
and knowledgeable as yours. | truly 
appreciate it and will order more 
from you. Keep up the good job.” 


“You have both lowest prices and 
best service — a great combina- 
tion! Keep up the good work. 


“You guys are SUPER.” 
“Technical staff very helpful.” 


“Once again, it was a pleasure 
dealing with you.” 


“I’m extremely satisfied with all 
aspects of your operation with 
which | am familiar.” 


“Excellent service. | most definitely 
will be purchasing from you in the 
near future. Keep up the good work.” 


“Impressive service and pricing, 
I’llrecommend you to my friends. 


“Your prices are the best! It’s great 
that you pick up the shipping 
charges and charge no sales tax 
(for me anyway). The price | see 
advertised is the price | pay, 
period.” 


“GOOD JOB!” 


“| referred you to two others be- 
cause they could not get current 
versions from other vendors.” 


“Your service is unusual for pur- 
chasing software. 


“The person who took my phone 
order seemed to be genuinely 
eager to help me, not just get an 
order. Thanks.” 


“1 like having no surcharge on 
credit cards and no shippin 
charge. There is no hidden cost. 


“Good products + good service + 
good prices = happy customers. 
Keep it up.” 


ce , . ° 

Fastest I’ve ever received by mail 
order. Good job. You have my 
patronage.” 


“Good service at very good prices. 
| plan to make all purchases from 
you. 


“You sell up-to-date products at 
reasonable prices and good sup- 
port.’ 





Circle no. 129 on reader service card. 





ai- arity products 


Arity Combination Package ................... 
Expert System Development Pkg ............. 
File Interchange Toolkit.................... 
PROLOG Compiler & Interpreter ............. 
Seren Oecies TOG cou. so eed vacate ees 
SQL Development Package ................. 

Arity PROLOG Interpreter .................... 

Asti) SUMMNNNG VHOUNE. 06atr 3, OSE es ee es 


ai-expert systems 


Ist-CLASS hy Programs in Motion .............. 
Autolntelligence by /ntelligenceWare............. 
ExpertEDGE Advanced by Human Fdge........... 
ExpertEDGE Professional by Human Fdge......... 
Experteach Il by /ntelligenceWare............... 
EXSYS Development Software by EXSYS.......... 

EXSVS Runtime Systém...... 2c... ek es 
Insight 1 by Leve/ Five Research ................ 
Insight 2+ by Level Five Research ............... 
Intelligence/Compiler /nte/ligenceWare........... 
Logic-Line Series 1 by Thunderstone ............ 
Logic-Line Series 2 by Thunderstone ............ 
Logic-Line Series 3 by Thunderstone ............ 


ai- lisp language 


GCLISP Golden Common LISP by Gold Hill ........ 
GCLISP 286 Developer by Gold Hil/ ............. 
IQCLISP dy /ntegral Quality ............44. New 
IQLISP dy /ntegral Quality ............4..4. New 


Microsoft LISP Common LISP.............02055 
QNIAL Combines LISP & APL by NIAL Systems ..... 
TransLISP from Solution Systems .......6.00000% 
TransLISP PLUS from Solution Systems ..... New 


ai- prolog language 

APT Active Prolog Tutor from Solution Systems ..... 
LPA microPROLOG A// Varieties................ 
MPROLOG Language Primer LOG/CWARE......... 
MPROLOG P500 by LOGICWARE ............... 
MPROLOG P550 by LOGICWARE ............... 
Prolog-86 from Solution Systems ............... 
Prolog-86 Plus from Solution Systems ........... 
Turbo PROLOG dy Borland Int! ...... New Version 
Turbo PROLOG Toolbox by Borland Int/...... New 


ai- smallitalk language 


Sma /N Dy Digitalk :) oo. vee. cack vance oe 
Eine DUE ON 55 5 i ks wearers ab New 
ORINGs MNNNNUNE oe cass ob eT eee da se ex New 
SMS COMM Coo acon ah bene a'e oka BY 


ai- texas instruments 


PU Semmes es a Succ chs de «0 oan Fea S 
Personal Consultant Easy..................... 
Personal Cotsulfant Plus)7-...:05.. 200580 helt 
Personal Consultant Runtime .................. 


apl language 

APL“PLUS/P By BIE is 05 a8 es yee OSE SBD 
APL*PLUS/PC Spreadsheet Mgr by STSC ........ 
APL*PLUS/PC Tools Vol 1 by STSC ............ 
APL*PLUS/PC Tools Vol 2 by S7SC ............ 
Financial/ Statistical Library by S7SC ............ 
Packet APC OY SING | oo Sn Ba iis 2a es 
STALGHAPHICS DY. STDC ooeis scan ee preteen a gia 


assembly language 


386 ASM/LINK Cross Asm by Pharlap .......... 
8088 Assembler w/Z-80 Translator by 2500 AD.... 
ASMLIB Function Library by BC Assoc............ 
asmTREE 8-7ree Dev System by BC Assoc ........ 
Cross Assemblers Various hy 2500 AD ........... 
Microsoft Macro Assembler................... 
Norton Utilities by Peter Norton ................ 
SEYOOM DY FIPNIR 2 sn os BRA oc were 
Turbo EDITASM by Speedware ................ 
Uniware Cross Assemblers Various hy SDS ........ 
Visible Computer: 8088 Software Masters ........ 


basic language 


87 OB Pak by Hauppauge .............. eee eee 
87 Software Pak by Hauppauge ........... New 
BetterBASIC by Summit .......... Final Clearance 
EXIM Services Toolkit by EXIM .............05. 


Finally by Komputerwerks ... 0.0... .0 000 cee eees 
Inside Track from Micro Help ..............444. 
MACH 2 by Micro Help ................ RY neater 
MACH 2 for Turbo BASIC by Micro Help ..... New 
Microsoft QuickBASIC Compiler ............... 
Peeks 'n Pokes from MicroHelp ................ 
Professional BASIC by Morgan...............-. 

SE FN UME E Ss iiecrioias bine ipa sin gales 


QuickPak dy Crescent Software ............ New 
Scientific Subroutine Library hy Peerless ......... 
Stay-Res by MicroHelp ....... 0... cece eee 
True Basic w/Run-time ............ New Version 
AUDEN Si ois 8 oe Gl OS RRA New Version 

SNOW TEMUIUD onic sla Fe Fe a ca ae ate ce 

VANIBUS ULNNIES, 6.5) 3 lcn ae vets Bos Skee, 5 Sees Saco 
Turbo BASIC Compiler by Borland /nt/ ...... New 


blaise products 


ASYNCH MANAGER Specify C or Pascal ......... 
© TOOLS PES oo a ie POE Soa wala Sproule 
EXEC Progrant CAMNG? $5... Kors! . 6 sees Lee ne < 
LIGHT TOOLS for Datalight C...............4.. 
PASCAL TOOLS. 2. 5. Se 70 HER SY Si en cw ctu 


PASCAL TOOLS & TOOLS 2 oo. cic ue occa heads 
RUNOFE Taxt Formattor es | 5. oo o's Beare 
PURCO-ROMNEH PLUS Bs i hehehe ek 


979 
229 


569 
229 


borland products 


EUREKA Fquation Solver .............0.00005. 100 
Reflex & Reflex Workshop .................... 200 
Reflex Data Base System ...........0 ce eees 150 
FUE POMEMEMIOE (oo. civ esd 5a Wap eie i LishdeeNs baie 70 
Sidekick & Traveling Sidekick ................. 125 
UNUM. Vine acd ice 014, LAU wd NS nak wees 85 
go. OP rae ee eee ha 70 
SONU So ica oka 8 eke a0 win Co eS ote 70 
Turbo BASIC Compiler................... New 100 
TOERO TCORIIIGE coils sis op bee sede New 100 
Turbo Database Toolbox...................... 70 
DURUE ENE FONE os eo lc as vienna wee ae 70 
Turbo Gameworks Toolbox.................... 70 
Tere Graphix TOOWGK «2... oe ee ee 70 
pe Pe ae ee aaa oe 100 
Turbo PASCAL Numerical Methods Toolbox ....... 100 
Taree PASCAL and Fatt. SS oe ss 125 
TOD PRONG ory) oes «Sine eee > Uae 100 
(OO COUN GS eo ht iis ciate otis ok hee pew nend 40 
Turbo PROLOG Compiler .......... New Version 100 
Turbe PROLOG Teellex.... 2.00.0. cccweee New 100 
WERT SUNN ss os Oe Cltk che Ro 3% nw ere OS 70 
Word Wizard and Turbo Lightning .............. 150 
ct+ 

C++ by Guidelines w/version 1.1 kernel .......... 195 

PforCe++ Function Library by Phoenix....... New 395 

c compilers 

68000/10/20 Cross Compiler by SOS ........... 595 

C86PLUS by Computer Innovations .............. 497 

Datalight C Compiler Sma// Mode/ .............. 60 

Datalight Developer Kit ...................... 99 

utalegne UptementeG: oi. So cise vice ce sade sees 139 

DeSmet C w/Debugger & Large Case ............ 209 

DeSmet C w/Debugger Only. ... 0.00... cece eee 159 

Eco-C Development System hy Ecosoft ........... 125 

Lattice C Compiler from Lattice ................ 500 

Mark Williams Let's C Combo Pack............. 125 
LOTS LOONIE 53a ona i ie eck ahe teehee 75 
esd Source Level Debugger ............0-05: 75 

Mark Williams MWC-86 ..................... 495 

Microsoft C with CodeView ..............0000. 450 

Turbo C Compiler by Borland Inti .......... New 100 

Wizard C Combo dy Wizard Systems ............. 750 
Vo a eo 450 
ROM Development Pkg .................... 350 

c interpreters 

C-terp by Gimpel, Specify compiler .............. 300 

C Trainer with Book by Catalytix............0.44. 122 

Instant C by Rational Systems ............02045- 500 

Introducing C by Computer Innovations ........... 125 

Run/C by Age of Reason ............ 2c eee eee 150 

Run/C Professional by Age of Reason ........... 250 

c utilities 

C to dBase by Computer Innovations ............. 150 

c-tree & r-tree Combo by FairCom .............. 650 
c-tree /SAM File Manager .............0244: 395 
r-tree Report Generator ..... 2... cc eee eee ees 295 

SS Witenes Oi SECON oa a ox Aw s bide o's ha Sawies 100 

C WE BP SyStet . i eet ek ees aes 50 

Cl ROMPac by Computer Innovations ............ 195 

dBx dBase to C Translator hy Desktop Al.......... 350 

with Library Source Code .... 2.0.0... ccc eeuee 550 
Various Support Utilities .... 0.0... eee eee CALL 

Flash-up Windows by Software Bottling .......... 90 

GraphiC Color version by Sci Endeavors........... 350 

GraphiC Mono version by Sci Endeavors .......... 280 

GUELIE DP SIMONE ie aces occ. Sa Shas 0 = 175 

HALO Graphics by Media Cybernetics ............ 300 

HALO Development Pkg for Microsoft............ 595 

The HAMMER by OES Systems ................ 195 

MetaWINDOWS Wo Royalties ..............4.4. 185 
a: 8 Sa erie ey eee ee Peoe a 80 

MetaWINDOWS/Plus by Metagraphics .......... 235 
WOtGE INT OA PONS aici eee iceb enn vows e 235 

PANEL by Roundhill Computer Systems ........... 295 

PC Lint by Gimpel Software ......... 0.020000 139 

ik ae 2 ae re eae eee 175 

PLOSHP By Seas eos oa cnn ks tat 0 vnean'e 175 

Professional C Windows by Washburn ....... New CALL 

Scientific Subroutine Library by Peerless ......... 175 

SCVROCUDISY FOU DR FIOINS oss sc bigot Pass sae ses 175 

Vitamin C dy Creative Programming ............. 225 
VC Screen Forms Designer... .........00005- 100 

Zview by Data Management Consultants .......... 245 

coboil language 

EASY SCREEN dy Retail Mgmt Systems ...... New 225 

Micro Focus COBOL Workbench ............... 4000 

Micro Focus Level 11 COBOL .................. 1500 
GUNNETIN S 5 alls Sieechid an oar bes ie st 250 
UWI Cs het, cite oro ee anh ao aie Soak an ts 200 
FUNG 5 Sek 5.0 ae ee las dss ee bs bee 300 
et ar pr ree a ee 900 
Level Il] SOURCEWRITER .................. 2000 

Micro Focus Level 1! COBOL for Wovel/ .......... 2000 

Micro Focus Professional COBOL .............. 3000 
Multi-user Runtime for PC Network............ 500 

Microsoft COBOL See Microsoft Section.......... 

POE COREG. . o0's hE Saas Pe be ESSN «dew os 995 
eer ey eee New 995 
MEPIS xu cae Sos See woe pe ales New 150 

RM/COBOL by Ayan-McFarland ................ 950 

RM/COBOL 85 by Ayan-McFarland ............. 1250 

screenplay for COBOL by Flexus ................ 175 

debuggers & profilers 

386 DEBUG Cross Debugger by Pharlap ......... 195 

Advanced Trace-86 by Morgan Computing ........ 175 

Cl Probe by Computer Innovations .............. 225 

Codesifter Profiler hy David Smith............... 119 

Codesmith-86 by Visua/Age...............005- 145 

DSD86 by Soft Advances .............000 0000. 70 

DSD87 by Soft Advances ..............00.000- 100 

Mutt velie By Alten’. 55050. Fs Re aa 395 
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Periscope | with Board by Periscope ............. 345 
Periscope Il with WMI Breakout Switch ........... 175 
Periscope II-X Software only ...............4-. 145 
The PROFILER with Source Code by DWB......... 125 
The WATCHER Profiler by Stony Brook........... 60 
dos utilities 
Command Plus by FSP Software ........... New 80 
FANSI-CONSOLE dy Hersey Micro .............. 75 
MKS Toolkit with vi Editor by MKS .............. 139 
Norton Commander dy Peter Norton ............. 75 
Scroll & Recall by Opt-Tech Data ............... 69 
Taskview by Sunny Hill Software ............4.-. 80 
entelekon products 
Sy ARVIN Hanged cohrscsh ane 0 See ay New 250 
C Dyanamo Screen Painter ............. New 130 
GC FORCRN TONY oan 5 cS Pew Gee 130 
Dyanamo Data Entry . v.05. Pee oe cs New 130 
Papeey WHMIS. 8. oi i ee Pees 130 
Deereets 10H NT. ois ets oh ae ante She 50 
Screen Painter & Data Entry .............. New 180 
essential products 
C Essentials by Fssential Software .............. 100 
GC GRY EREINYS 6.0 Siders. ic So pied aa Co hho nied 185 
Essential Comm Library with Debugger ........... 250 
Essential Comm Library Software Only ......... 185 
Breakout Debugger Any /anguage............. 125 
EUSGMNGT UDINESE 5 on FS Hes be gts os i 250 
forth language 
CFORTH Wative Code Compiler by LM/ ........... 300 
Forth/83 Metacompiler Specify Jarget........... 750 
PC/Forth by Laboratory Microsystems............ 150 
PC/Forth+ by Laboratory Microsystems .......... 250 
Advanced Color Graphics Support ............ 100 
Enhanced Graphics Support................. 200 
gg | ae eee Ren ea rar 100 
Interactive Symbolic Debugger............... 100 
Native Code Optimizer ..................... 200 
Software Floating Point.................... 100 
LFS PREG, Sieal bik 3s hots wot eee ew Bb ews 350 
Object Module Libraries.................... 500 
POMECL GU MOUND. ooo bee ei el 1500 
fortran language 
50 MORE: FORTRAN dy Peerless Engr........... 125 
ACS Time Series Alpha Computer Service......... 495 
Essential Graphics by Fssential Software ......... 250 
For-Winds A/pha Computer Service.............. 90 
Forlib-Plus A/pha Computer Service ............. 70 
PUT te OR OTERON fo en eile Tn ek oe 95 
FORTRAN Addendum dy /mpulse Engr ........... 95 
FORTRAN Addenda dy /mpulse Engr............. 165 
SUEUR. IESE 33 ois clog to chs a's Weel nas 175 
HALO by Media Cybernetics ............0.0000- 300 
1/0 PRO by MEF Environmental ................ 149 
Microcompatibles Combo Package.............. 240 
NE 2 a oo CSE Oe ois Coe Sek wes oD 135 
FROMM Nha onc Sc' oc dig cy Minted ge oS b wig Oc 135 
Microsoft FORTRAN w/CodeView ... NewVersion 450 
No Limit by MEF Environmental..............44: 129 
Numerical Analyst by MAGUS.............. New 295 
PANEL Screen Designer by Roundhill ............ 295 
PLEIN BP SURE ies sais doh ais Se aw we bb 175 
PLE OP ORNN Sos sa bares oo ode ON Gee 175 
RM/FORTRAN Ayan-McFarland .............44. 595 
RTC PLUS Fortran to C hy Cobalt Blue ...... New 325 
Scientific Subroutine Lib by Peerless ............ 175 
Statistician A/pha Computer Service ............. 295 
Statlib.GL: by PS//Systems...........064.. New 295 
Statlib. TSF: by PS//Systems............... New 295 
Strings & Things A/pha Computer Service ......... 70 
greenleaf products 
Greenleaf Comm Library ..................... 185 
Greenleaf Data Windows ...................... 225 
WE SOMCE COCO 5 cis & vin, b wh he Lie RRS eae 450 
Grecmieet Functions... 3.5.0 5.s4s5s tan tak ws 8 185 
help utilities 
HELP/ Comtral Sv MOS so s8 5 Eee i od 125 
On-line Help from Opt-Tech ......... New Version 149 
SoftScreen/HELP hy Dialectic Systems .......... 195 
lattice products 
Lattice C Compiler from Lattice ................ 500 
with Library Source Code ..............++44. 900 
C Cross Reference Generator.................. 50 
Wits SOUTER TOO reg 9 Gh tiie Opie ai daisies bg 200 
C-Food Smorgasbord Function Library............ 150 
WHR SOUNE IOP bch oo snk gentis or rea as re 300 
C-Sprite Source Level Debugger ................ 175 
Curses Screen Manager... ccc ccccccdescceces 125 
WIR: SOURCEM OU Es °F a5 oe is 0.8 Bia Se SoS stk oa 250 
dBC Il Specify dBC Il or DBC Il... 2.2 ee ee eee 250 
WAN SOUEE CORE 25 E26. FeO PRS bs Mae 500 
iG NE Sie VG pee o deen eed os New 750 
With Source COWA. 6..'5s vniiveis Bet dees New 1500 
Dn hb he | Se Pe aa Cee eee ae 195 
RPG Il Combo A/ three items below............. 1100 
RPG Il Compiler Wo Aoyalties................ 750 
RPG Il SEU Screen Entry Utility .............. 250 
RPG Ui Sert/ Merge. 5 i oss we oss 250 
RPG Il Screen Design Aid Utility ............... 350 
SecretDisk File Encryption Utility ............... 120 
SideTalk Resident Communications .............. 120 
SSP/PC Scientific Subroutine Library ............ 350 
Text Management Utilities .................... 120 
TopView Toolbasket Function Library ............ 250 
with Soutté COU 2S eg scat ees 500 
microport products 
System V/AT by Microport Systems ............. 499 
Runtime System (Operating System) ........... 199 
Software Development System............... 199 
Text Preparation System ................... 199 
User Upgrade 3 to Uniimited Users.............. CALL 


209 
109 
109 
109 
109 


150 


183 


CALL 





microsoft products 


Microsoft BASIC Interpreter for XFM/X........... 350 
Microsoft C with CodeView .........-..0..005- 450 
Microsoft COBOL Compiler ................... 700 
FATE oi i Citak Gee ereckielth. oF Mgile we e-2 995 
Microsoft COBOL Tools with Debugger........... 350 
FOE Pe on eR agi Sig we Ble 450 
Microsoft FORTRAN w/CodeView ... New Version 450 
pT 2 Ae Steg RT eA eS a aE 695 
Microsoft Learning DOS ..................... 50 
Microsoft LISP Common LISP ...............+-- 250 
Microsoft MACH 10 w/Mouse & Windows ........ 549 
Microsoft MACH 10 Board only ................ 399 
Microsoft Macro Assembler................... 150 
Microsoft Mouse Bus Version...............065 175 
Microsoft Mouse Seria/ Version ................ 195 
Microsoft muMath /ncludes muS/IMP ............. 300 
Microsoft Pascal Compiler.................... 300 
WE Fs Sac tn on erlena ek one ene 695 
Microsoft QuickBASIC Compiler ............... 99 
RT NNNE ENON 6.5 ere Rt Coy oct 0 BV % & be 195 
ee eae rere 99 
Microsoft Windows Development Kit ............ 500 
modula-2 products 
1O0Tools by Rhodes Associates ............ New 80 
with Source Code ...........0.2000 00s New 950 
MODULA-2 Apprentice Pkg by LOGITECH.... Vew 99 
MODULA-2 Magic Pkg by LOGITECH ....... New 99 
MODULA-2 ROM Pkg & Cross RT Debugger Wew 299 
MODULA-2 Window Pkg by LOGITECH...... New 49 
MODULA-2 Wizard's Pkg by LOGITECH .... Wew 199 
REPERTOIRE for MODULA-2 by PMI............. 89 
Ute GE CNG sos Pa aclele a yas sew aes 19 
mouse products 
LOGIMOUSE BUS with PLUS Pkg by LOGITECH .... 139 
with PLUS & PC Paintbrush ...........0.0005. 189 
with PLUS & CAD Software ...........2.004 209 
with PLUS & CAD & Paint «0.2... 6. cece cues 239 
LOGIMOUSE C7 Specify Connector ............. 99 
WM PLES FOERBOD 55.55 daca s Spek. boven wes 119 
with PLUS & PC Paintbrush .........0.04000. 169 
with PLUS & CAD Software ............0045. 189 
with PLUS & CAD & Paint ...... 6.0.0 cece ee 219 
other languages 
CCS MUMPS Single-User hy MGlobal ........... 60 
CCS MUMPS Single-User/Multi-Tasking ......... 150 
CCS MUMPS Multi-User... 2.2.0. ccc eens 450 
Janus/ADA C Pak by R&A Software............. 95 
Janus/ADA D Pak by A&A Software............. 900 
Janus/ADA ED Pak by R&A Software....... New 395 
Marshal Pascal by Marshal Language Systems New 189 
Personal REXX by Mansfield Software ........... 125 
SNOBOL4+ by Catspaw ..... 2.2... ee eee 95 
other products 
Dan Bricklin's Demo Pgm Software Garden........ 75 
Disk Optimizer by Softlogic Systems ......... New 60 
FASTBACK dy 5th Generation Systems ........... 179 
Instant Replay by Wostradamus ................. 90 
Net-Tools by BC Associates ............... New 149 
OPT-Tech Sort by Opt-Tech Data Proc ........... 149 
VTEK 7erm Emulator by Sci Endeavors ........... 150 
phoenix products 
Pasm86 Macro Assembler Version2.0 ........... 195 
Pdisk Hard Disk & Backup Utility. ........0.0.45. 145 
Pfantasy Pac Phoenix Combo .............. Sale 1295 
Pfinish Execution Profiler .............004. Sale 395 
Pfix86plus Symbolic Debugger ............. Sale 395 
PforCe Comprehensive C Library............ Sale 395 
PforCe++ Library for Guidelines C++ ........ Sale 395 
Plink86plus Overlay Linker ................ Sale 495 
Pmaker Make Utility... 2... eee 125 
ee a ae 195 
2 | a eae oe ee ee ee 295 
Ptel Binary File Transfer Program ............... 195 
polytron products 
PolyBoost 7he Software Accelerator ............. 80 
PolyLibrarian Library Manager ................. 99 
PolyLibrarian Wl Library Manager ................ 149 
PolyMake UM/X-like Make Facility..............4. 149 
a ee ee ae eee? ee ee eee 149 
Polytran © Dentieiiet © 35:53. 22 os i deine Seen 50 
i 8 nn ee 99 
Polytron PowerCom Communications ............ 139 
PolyWindows Products A// Varieties ............. CALL 
PolyXREF Complete Cross Ref Utility ............ 219 
PolyXREF One /anguage only .................. 129 
PVCS Corporate Version Contro/ System...... New 395 
Pee WN a, Saks. as sa Wao he 5 BE tiny ah New 149 
program mgmt utilities 
Compact Source Print by A/debaran ............. 55 
Interactive EASYFLOW dy Haventree ............ 150 
PrintO by Software Directions ...............05. 89 
Quilt Computing Combo Package ............... 199 
QMake Program Rebuild Utility... 2.2... 99 
SRMS Software Revision Mgmt Sys ........... 125 
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CALL 


108 


799 
209 
209 
209 
209 
279 


108 
154 
108 


Source Print by A/debaran Labs ............44+5- 75 59 
TLIB by Burton Systems Software .........0.045 100 89 
Tree Diagrammer hy A/debaran Labs ............ 55 49 
raima products 
dbQUERY Single-User Query Utility. ............. 195 129 
Single-User with Source Code ............4:. 495 389 
PPS as vis Uy Bete a iG, sad Da. on 0 84 Bas 495 389 
Multi-User with Source Code ............005. $90 ©6799 
dbVISTA Single-User DBMS .. 0... ccc eee eee 195 129 
Single-User with Source Code ............44: 495 389 
In J 55 ee ese . Siu: + UK ae 495 389 
Multi-User with Source Code ............00045 990 ©6799 
sco products 
Complete XENIX System V fy SCO.............. 1295 999 
Development System ..................045- 595 499 
Operating System Specify XT or AT............ 595 499 
Text Processing Package................... 195 144 
Networks for XENIX by SCO ...............2... 595 495 
SCO Professional Lotus clone for XEMIX .......... 795 §95 
softcraft products 
Btrieve /SAM Mor with No Royalties ............. 245 184 
a Pi BL: a a 245 184 
Report Option for Xtrieve .... 2.2.2.0... eee 145 99 
Btrieve/N for Networks .............-0000000s 595 454 
a See en See ne pe eee ee a 595 454 
Report Option/N for Xtrieve/N............... 345 269 
solution systems products 
BP Active Prolog 100 2 ii ci cok oases sce 65 CALL 
Brief & dBriel Came. 0. oe. eb eee cee eweeee 250 CALL 
Brief Programmer's Text Editor ............... 195 CALL 
dBrief Customizes Brief for dBase Ill ........:.. 95 CALL 
CSORRON BO Se ot a Sie Es Poses woes Fe oes 75 CALL 
Db ROOM ies So ate bee bas ob Suaws Obese 95 CALL 
i a On ore at een eT ot 95 CALL 
Si oo es Peer eee aT ey 125 CALL 
ol a ee, eee 250 CALL 
MNO ys ace ore Fan e'n cued eG aos wane oe ee 125 CALL 
Wht. Gpitee COME acs io og hs eee eS es 250 CALL 
AVON beh aoe Seka ed fxs kawendewkces 95 CALL 
co oo. Ee, a? See eae New 195 CALL 
ZAP Communications ....... 06 e eens 95 CALL 
text editors 
Brief from Solution Systems ..........00c0eeeee 195 CALL 
Epsilon Fmacs-like editor by Lugaru.............. 195 147 
KEDIT by Mansfield Software .............0005 125 98 
Micro/SPF by Phaser Systems............. New 175 139 
PC/VI by Custom Software Systems ............. 149 99 
SPF/PC by Command Technology Corp NewVersion 245 175 
Vedit by CompuView.... 2.0... 0... c ccc e eee eee 150 98 
Vedit Plus by CompuView ............0.000 eee 185 128 
turbo pascal utilities 
ALICE /nterpreter hy Software Channels .......... 95 66 
DOS/BIOS & Mouse Tools by Quinn-Curtis.... New 75 67 
Flash-up Windows hy Software Bottling .......... 90 79 
MetraByte D/A Tools by Quinn-Curtis........ New 100 89 
Science & Engrg Tools by Quinn-Curtis ....... New 75 67 
Screen Sculptor by Software Bottling ............ 125 91 
screenplay for Turbo Pascal by Flexus............ 100 79 
Speed Screen hy Software Bottling.......... New 125 91 
System Builder by Royal American .............. 100 CALL 
WPA GUY OTA 555 ao oc cin cones es New 75 CALL 
A Ne Py Ae ie 2 ee 75 CALL 
TDebugPLUS by TurboPower Software ........... 60 49 
Turbo EXTENDER 4y TurboPower Software........ 85 64 
Turbo Professional by Sunny Hill ............... 70 45 
TurboHALO from IMS/ .. 0... ce cee 129 98 
TurboPower Utilities by TurboPower............. 95 78 
TurboRef by Gracon Services ............00005. 50 45 
TURBOsmith Debugger by Visual Age ............ 69 45 
TurboWINDOW Graphics/Windows by MetaGraphics 80 58 
wendin products 
Operating System Toolbox .................... 99 75 
PCNX Operating system ........... 0c cee ee eens 99 75 
PCVMS Similar to VAX/VMS .. 0.00... ccc eee 99 75 
XTC Jext Editor with Pascal source .............. 99 75 
xenix/ unix products 
Btrieve /SAM File Mgr by SoftCraft .............. 595 454 
C-terp by Gimpel, Specify compiler .............. 498 379 
c-tree /SAM Mor hy FairCom .............00055 395 315 
dbVISTA See Raima Section. ...........0..005: 
dBx with Library Source by Desktop Al............ 550 489 
DOSIX Console Version by Data Basics ........... 399 CALL 
DOSIX User Version hy Data Basics ............. 199 CALL 
Micro Focus Level Il Compact COBOL ............ 1000 CALL 
PME a Ve fat ate tor RA So Bas ace 08 aides 400 CALL 
Level W AMIMATOR: 5.5 dik oa ee 600 CALL 
Microport Products See Microport Section ........ 
Microsoft Products See Microsoft Section......... 
PANEL Screen Designer by Roundhill ............ 625° 535 
REAL-TOOLS Binary Version by PCT ............. 149 89 
Library Source Version ......... 0.00 e cece eee 399 289 
Complete Source Version .....2......0200000 499 369 
RM/COBOL dy Ayan-McFarland ................ 1250 CALL 
RM/COBOL ‘85 dy ARyan-McFarland ............. CALL CALL 
RM/FORTRAN hy Ayan-McFarland .............. 750 CALL 


SCO Products See SCO Section ................ 


HARTVILLE, OHIO 44632 


Circle no. 129 on reader service card. 
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LOWEST PRICES 


Since this ad is prepared in advance of publica- 
tion, some of our current prices may be lower 
than what's advertised here. Call for latest 
pricing. 


FREE SHIPPING 


Orders within the USA (including Alaska & Ha- 
waii) are shipped FREE via UPS. Express ship- 
ping is available at the shipping carrier's stand- 
ard rate with no rush fees or handling charges. 
To avoid delays when ordering by mail, please 
call first to determine the exact cost of express 
shipping. 


CREDIT CARDS 


VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date and telephone number. 


CODs AND POs 


CODs and Purchase Orders are accepted at no 
extra cost. POs with net 30-day terms are avail- 
able to qualified US accounts only. 


FOREIGN ORDERS 


Shipping charges for foreign and Canadian 
orders are based on the shipping carrier's stand- 
ard rate. Since rates vary between carriers, 
please call or write for the exact cost. Foreign 
orders (except Canada), please include an addi- 
tional $10 for customs form preparation. All 
payments must be made with US funds drawn on 
a US bank. Please include your telephone 
number when ordering by mail. Due to govern- 
ment regulations, we cannot ship to all 
countries. 


VOLUME ORDERS 


Call for special pricing. 


SOUND ADVICE 


Our knowledgeable technical staff can assist in 
comparing products, answer technical questions 
and send you detailed product information tai- 
lored to your needs. 


30-DAY GUARANTEE 


Most of our products come with a 30-day docu- 
mentation evaluation period or 30-day return 
guarantee. Please note that some manufactur- 
ers restrict us from offering guarantees on their 
products. Call for more information. 


© 1987, Programmer's Connection, Inc. 





CALL TOLL-FREE 
US 800-336-1166 
CANADA 800-225-1166 
OHIO & ALASKA 
(Call Collect) 216-877-3781 
FOREIGN 216-877-3781 


CUSTOMER SERVICE 216-877-1110 


Hours: Weekdays 8:30 AM to 8:00 PM EST. 


Ohio customers please add 6% state sales tax. 


Prices are subject to change without notice. 


Call or write for our FREE comprehensive 
price guide. 















Listing One 
(Listing continued, text begins on page 42. ) 
RETURN 


Prove.long.legs: 
current. fact=long.legs:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.dark.spots: 
current. fact-dark.spots:GOSUB Test.fact.for.numan.input. 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.tawny.color: 
current. fact=tawny.color:GOSUB Test.fact.for.human. input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.bird: 
current.fact=bird:GOSUB Test. fact.for.human. input 
IF leave=yes THEN RETURN 
GOSUB Prove.feathers:GOSUB Prove.flies.and.lays.eggs 
number .of.or.clause.components=2 
OR . COMPONENT (1) =feathers 
AT.FACTOR.FOR.OR.COMPONENT (1) =1 
OR. COMPONENT (2)=flies.and.lays.eggs 
AT .FACTOR.FOR.OR.COMPONENT (2) =.8 
GOSUB Compute.or.clause.cf 
GOSUB Deduce 
RETURN 


Prove.ungulate: 
current.fact=ungulate:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Prove.mammal.and.hoofs 
GOSUB Prove.mammal.and.chews.cud 

number .of.or.clause.components=2 
OR. COMPONENT (1)=mammal.and.hoofs: 
AT.FACTOR.FOR.OR.COMPONENT (1) =. 85 
OR . COMPONENT (2)=mammal.and.chews.cud 
AT .FACTOR.FOR.OR. COMPONENT (2) =. 8 
GOSUB Compute.or.clause.cf 
GOSUB Deduce 
RETURN 


Prove.carnivore: 
current. fact=carnivore:GOSUB Test. fact. for.human. input 
IF leave=yes THEN RETURN 
GOSUB Prove.eats.meat:GOSUB Prove.teeth.claws.eyes 
number .of.or.clause.components=2 
OR. COMPONENT (1) -eats.meat 
AT.FACTOR.FOR.OR.COMPONENT (1) =. 85 
OR . COMPONENT (2) =teeth.claws.eyes 
AT.FACTOR.FOR.OR.COMPONENT (2) =1 
GOSUB Compute.or.clause.cf 
GOSUB Deduce 
RETURN 


Prove.mammal: 
current. fact=mammal:GOSUB Test. fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Prove.has.hair:GOSUB Prove.gives.milk 
number .of.or.clause.components=2 
OR. COMPONENT (1) =has.hair:AT.FACTOR.FOR.OR.COMPONENT(1)=.85 
OR. COMPONENT (2) =-gives.milk:AT. FACTOR. FOR.OR.COMPONENT (2)=.8 
GOSUB Compute.or.clause.cf 
GOSUB Deduce 
RETURN 


Prove.has.hair: 
current.fact=has.hair:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.gives.milk: 
current. fact=gives.milk:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.eats.meat: 
current. fact=eats.meat:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.teeth.claws.eyes: 
current. fact=teeth.claws.eyes:GOSUB Test. fact.for.human. input 
IF leave=yes THEN RETURN 
GOSUB Prove.pointed.teeth:GOSUB Prove.claws 
GOSUB Prove.front.eyes 
number.of.and.clause.components=3 
AND .COMPONENT (1) =pointed.teeth:AND.COMPONENT(2)=claws 
AND .COMPONENT (3)=front.eyes 
at.factor.for.and.clause=.85 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.mammal.and.hoofs: 
current. fact=mammal.and.hoofs:GOSUB Test. fact.for.human. input 
IF leave=yes THEN RETURN 
GOSUB Prove.mammal:GOSUB Prove.hoofs 
number.of.and.clause.components=2 
AND. COMPONENT (1) =mammal : AND.COMPONENT (2) =hoofs 
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at. factor.for.and.clause=.8 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.mammal.and.chews.cud: 
current. fact=mammal.and.chews.cud:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Prove.mammal:GOSUB Prove.chews.cud 
number.of.and.clause.components=2 
AND. COMPONENT (1) =mammal : AND. COMPONENT (2) =chews.cud 
at.factor.for.and.clause=.8 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove. feathers: 
current .fact=feathers:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove. flies.and.lays.eggs: 
current. fact=flies.and.lays.eggs:GOSUB Test. fact. for.human. input 
IF leave=yes THEN RETURN 
GOSUB Prove.flies:GOSUB Prove.lays.eggs 
number.of.and.clause.components=2 
AND . COMPONENT (1) =flies: AND. COMPONENT (2) =lays.eggs 
at.factor.for.and.clause=1] 
GOSUB Compute.and.clause.cf 
GOSUB Deduce 
RETURN 


Prove.lays.eggs: 
current. fact=lays.eggs:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove. flies: 
current. fact=flies:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.chews.cud: 
current. fact=chews.cud:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.hoofs: 
current. fact=hoofs:GOSUB Test. fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove. front.eyes: 
current. fact=front.eyes:GOSUB Test.fact. for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.claws: 
current. fact=claws:GOSUB Test. fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


Prove.pointed.teeth: 
current. fact=pointed.teeth:GOSUB Test.fact.for.human.input 
IF leave=yes THEN RETURN 
GOSUB Deduce 

RETURN 


End Listing 
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Unleash The Most Powertul 


Development Tools 
OnThe Planet DOS. 


UNIFY DBMS/DOS. The UNIX World Leader 
Brings A New DimensionTo DOS Application Development. 


What happens as the DOS world expands? As a 
new generation of hardware takes over? As networking 
becomes more important? The potential is enormous. 
But until now, the tools to achieve it have been limited. 

Now a leader from another world unleashes that 
potential: UNIFY® DBMS. The leading relational 
DBMS in the UNIX™ world. And now, the most 
advanced set of application development tools in the 
DOS world. 

With UNIFY DBMS, DOS developers have new 
power to build more sophisticated applications than ever 
before possible. 

The power to write high performance “C” 
programs that will access the data base, using 
Unify’s Direct Host Language Interface. 

The power of an industry standard 
query language—SQL. 

The power of unmatched speed in pro- 
duction applications. Only UNIFY DBMS is 
specifically engineered for transaction through- 
put. With unique performance features like 
PathFinder™ Architecture multiple access meth- 
ods, for the fastest possible data base access. 


© 1986 Unify Corporation. UNIX™ is a trademark of AT&T Bell Laboratories. 


The power of comprehensive pro- 
gram development and screen man- 
agement tools. Plus a state- 
of-the-art fourth generation / 
report-writer. ~~ 

What’s more, with UNIFY * 

DBMS, the potential of networked 

applications becomes a reality. Unlike 

DBMS systems which were originally 
single-user (and which have along stretch ™ 
to accommodate more users), UNIFY DBMS 

is a proven multi-user system. 

And because UNIFY DBMS/DOS is 
the best of two worlds, it offers you the most 
powerful benefit of all: DBMS applications that 
can grow as your needs grow. From single user 
DOS. To networked DOS. To multi-user UNIX. 
All without changing your applications. 


Call the Unify Information Hotline 
for our free booklet: The New DOS World. 
(503) 635-7777 


UNIFY 


CORPORATION 


4000 Kruse Way Place 
Lake Oswego, OR 97034 


Circle no. 332 on reader service card. 








Listing Nineteen (Text begins on page 130.) 


#include <stdio.h> 
#include <hash.h> 
#include “"nr.h" 


NRMAC.C: macro, diversion, & trap support for nr 


Copyright (c) 1987, Allen I. Holub. 

This module holds routines for mainpulating and 
accessing macros and strings. In addition the line 
trap mechanism is implemented here. 


= eee he He He OH OH OH 


» 


Macros are kept in a hash table. If they are smaller 
than MAXMBUF characters, they are stored in memory; else 
they're stored on the disk. When a macro gets taco big it 
is put into a file called xxYY.mac where xX is the first 
character in the name represented as two hex digits, YY 
is the second character. 


VERT is the height of the current diversion, accessable as 
\n(.v It is used three places other than this module: 


1) It's incremented after every line is output in nrout.c 
2) It's used to spring diversion traps in nrout.c 
3) It's used when setting a diversion trap in nrprocs.c 


it's value is equal to \n(nl if no diversion is active. 
HEIGHT is the height of the most recently completed 
diversion accessable as \n(dn. It's set equal to VERT 
when a diversion is closed. It's not used anywhere by nr. 


ee me ee ee ee ee ee ee ae ee me ee ee ee ee ee ee a a a ee a ee ee 


MACRO-RELATED DEFINES: 


a 


s 2 


ay 
typedef struct macro_ 
char mode; /* Open mode: 'r' '‘w' ‘a’ Onot open df 


FILE *fd; /* Fd of macro on disk or 0 if in memory */ 
char *buf; /* Pointer to buffer or 0 if macro on disk */ 


char *ptr; /* If buf valid, pointer to the wf 
/* last valid character. (current char if */ 
/* writing). s/ 
int vert; : 
int width: /* Macro size in lines and macro width in */ 
/* characters. These fields are only */ 
/* defined if the macro is a diversion. s/ 
} 
MACRO; 


typedef UCHAR LTRAP [4]; 


static LTRAP 
static HASH_TAB 


Linetrap[{ MAXLTRAP+1 ]; 
*Macros = NULL; 


by DIVERSION-RELATED DEFINES: 


typedef struct 
{ 


FILE *ofile; /* Output file of previous level */ 
int isdiv; /* 1 if file is a diversion “7 
int divtrap; /* Diversion trap ey 
char dtrap name[2]; /* Invoke when divtrap reached s/ 
int width; /* width of current diversion. dj 
int vert; /* Vertical place in current div */ 

} 

DIV; 

#define MAXDIV 8 /* Maximum diversion nesting level */ 

DIV Dstack[MAXDIV); /* Diversion environment stack s/f 

int Dsp = MAXDIV; /* Diversion stack pointer (index) */ 

PM i in ee res te can hs hee op ls nh la a bs ad fennel mw de oe wd ee, 


* Function prototypes for external routines not declared 
* .ip ia... file 
af 


extern void err Cf ehar*,,-"5 s. ): /* nrout.c */ 
extern int getline ( char*,int,int(*) () }ei/* nrinp.c *7 
extern void process (FILE*, char*, int, char**); /* nrinp.c */ 
extern char *skipspace( char*, int }3 
extern char *skipto CAnt,.char*®, int ); 

); 


extern char *getenv ( char* 
fj SRE pS Rae oe SON Al ee Polls Cart a AEN YE ORO x/ 
/* Function prototypes for routines in this module “f 


/* MACRO-RELATED (primitives): */ 


/*global*/ int mgetc 


(MACRO * e 
/*global*/ void mwrite ; 


(MACRO *, char *); 


/*global*/ void mputc (int, MACRO *); 
/*global*/ void munlink (char. * ye 
/*global*/ MACRO *mopen (char*, char* i; 
/*global*/ void mclose (MACRO* 3 


/* MACRO-RELATED (high level): */ 


/*global*/ char *expandstr 
/*global*/ int expand_macro 


(char *,char *,int); 
(char *); 
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/*global*/ int mcreate (char *,char *); 
/*global*/ int  mappend (char *,char *); 
/*global*/ void mac clean (void); 
/*global*/ int screate (char *,char *); 
/*global*/ int sappend (char *,char *); 
/*global*’ int  printm (void); 

/* DIVERSION-RELATED */ 

/*global*/ int dcreate (char *); 
/*global*/ int dappend (char *); 
/*global*/ int endiv (void); 


/* TRAP-RELATED */ 


/*global*/ int set_linetrap (char *,int ); 
/*global*/ int movetrap (char. * int int: .)s 
/*global*/ int pr traps (vaid); 

/*global*/ int do divtrap (void); 

/*global*/ int do linetrap (int ); 

/*global*/ int distance (void); 

/* USED LOCALLY */ 


/*local */ void delm 


(char*, MACRO* 


); 
/*local */ char *fname (char* ); 
/*local */ void swrite (MACRO*, char* i 
/*local */ void prnt (char*, MACRO* ); 
/*local */ int pushdiv (MACRO* )? 
/*local */- MACRO *popdiv (void ‘ee 
{/*local */ int findtrap (char* de 
f RS a a es ws 5 Saw Sie i tad tek aga Min is eg ns ns a nw nic ad nn ee ee x/ 
static char *fname( name ) 
char *name; 
{ 
/* Create a unique file name for a macro temporary file. 
* The name is volitile (it won't be preserved between 
* fname() calls. If a TMP environment exists, its 
* prefixed to the name. 
*7 
Static char buf[ 80 ]; 
char *env; 
if( !(env = getenv("TMP")) ) 
env = eb, 
sprintf(buf, "%st02x%02x.mac", env, name[0] & Oxff, 
Mame[1l]) & Oxff); 
return buf; 
} 
/* ww ew ww wr we ow ww wn wn wo oo es oe wr we ww we oo en a ee ee ew we ee we ee eee we we ewe x/ 
MACRO *mopen( m_name, how ) 
char *m name; 
char *how; 
{ 
/* Open the macro "m_name" in the specified mode. Mode 
* may be "r" “w" or "a". If the macro doesn't exist it 
* is created. An open for write will delete the contents 
* of the macro if they exist. Only the first two 
* characters of the name mean anything. Return 0 on 
* error or a pointer to the macro on suacess. 
ft § 


register int existing ; 
register MACRO *pnode ; 
char *name ; 


if( *m_name == '\0') 
return( (MACRO *)0O ); 


if( '!Macros ) 
Macros = maketab( 127 ); 


/* Create macro table x / 
/* if it doesn't exist. */ 
name = fname( m_name ); /* Convert macro name to */ 
/* associated file name. */ 


pnode = (MACRO *) findsym(Macros, m_name) ; 
existing = pnode != NULL; 


1f( !pnode ) 
{ 
pnode = (MACRO*) addsym(Macros, m_name, sizeof (MACRO) ); 


} 
else if( pnode->mode ) 


err(“May not access .%2s macro recursively\n", m name); 
return( (MACRO *)0 ); aa 
} 


switch( pnode->mode = *how ) 
{ 
case ‘at: 
if( existing && pnode->fd ) 
pnode->fd = fopen( name, “ab" ); 
break; 
case ‘w': 


if( existing ) 
{ 
/* If the macro already exists, truncate it's 
* buffer, or buffer file, to zero 
* length. 


rai. 


if( pnode->fd ) 
pnode->fd = fopen( name, “w" ); 


(continued on page 86) 
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Why 





Why are scientists, engi- 
neers, and professionals 
switching to Smalltalk/V? 
Because it lets them do 
amazing things on their 
PCs, with a Mac-like 
interface and an 
easy-to-use object- 
oriented language. 

And with Smalltalk/V 
you get an unsurpassed 
array of problem-solving 
tools. You can even per- 
sonalize the entire system to 
suit your needs. 


Smalltalk/V is the program- 
mable environment that 
gives you total control of 
your computer and makes it 


what it was meant to be, a truly personal 


tool for your mind. 


“This is the real thing, folks. A super 
Smalltalk like this turns your PC into a hot 
workstation. It’s fantastic . . . Highly 
recommended.” 

John C. Dvorak, 


Contributing Editor, PC Magazine 


“My background is in physical chemistry, 
not in programming. I like Smalltalk/V 
because I can use objects in the computer to 
represent objects in the physical world.” 


Dr. Paul Soper, Senior Specialist 
E. L. du Pont de Nemours & Co. 


“Smalltalk/V is a productive programming 
environment that allows us to quickly 
develop sophisticated medical 
applications.” 
Dr. Mike McCoy, 
Dean for Instructional Computing 
UCLA School of Medicine 
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re So Many _ 
Switching fo Smalltalk/V? 












Smalltalk/V 


The Programmable Environment 


“Smalltalk/V, with its visual interface and 
class structure, is a perfect way to simulate 
the complex interactions of natural 
systems.” 
Lee A. Graham, Research Assistant 
Institute of Ecology, University of Georgia 


“I solve problems quickly using Smalltalk/V 
because its classes and objects help me 
organize my thinking. And besides, it’s fun 
to use.” 
Dr. Barry Fishman, Sr. Project Engineer 
Hughes Aircraft Company 


BYTE and BIX are trademarks of McGraw-Hill, Inc. IBM, IBM-PC, and 
IBM PC-AT are trademarks of International Business Machines 
Corporation. Unix is a trademark of Bell Laboratories. 






People 





‘Smalltalk/V is the 
highest performance 
object-oriented pro- 

gramming system 
available for PCs.” 

Dr. Piero Scaruffi, 

Chief Scientist, Olivetti 
Artificial Intelligence Center 


‘Smalltalk/V is an excellent buy 
and makes a good alternative 

to other programming 
“languages for the development 
of complex applications.” 


Bill Wong, Director, PC Labs 
PC Magazine 


Other Smalltalk/V 


Features 
© Object-oriented Prolog integrated 
with the Smalltalk environment 
e Supports exploratory programming and 
prototyping 
© Class hierarchy with inheritance creates highly 
re-useable source code 
@ Smalltalk source code included, with browser 
windows for easy access and modification 
© Object-swapping creates a virtual memory on 
hard or RAM disk 
@ Bit-mapped graphics with bit and form editors 
© A sophisticated source-level debugger 
e Automatic change log for easy recovery 
from errors 
© Powerful directory/file browser system for 
organizing DOS files 
© Access to other languages and DOS 
functions 
@ 500 page manual with comprehensive tutorial 
and reference sections 
© Optional add-on modules 
¢ RS-232 communications interface with 
UNIX™ and TTY windows 
¢ EGA color graphics 
° “Goodies” diskette, including 
multiprocessing, music, zoom, object 
loader, and more 
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Listing Nineteen 
(Li 


sting continued, text begins on page 130. ) 


else if( pnode->buf ) 
{ 


free( pnode->buf ); 
pnode->buf = 0 ; 
pnode->ptr = "" ; 


} 
break; 


case ‘r'; 
if( !texisting ) 
{ 
delsym( Macros, (BUCKET *) pnode ); 
return( (MACRO *)0 ); 
} 


/* Position the buffer (or file) pointer to 
* beginning of buffer (or file). 
= 


if( pnode->buf ) 
pnode->ptr = pnode->buf ; 


else if( pnode->fd ) 

{ 
if( !(pnode->fd = fopen( name, "r") )) 
{ 


err("Can't open macro file: <%s>\n", name); 
return( (MACRO *)0 ); 


} 
break; 
default: 
err("Internal errror: bad mopen mode\n") ; 
return( (MACRO *)0 ); 
} 


return( pnode ); 


| Benn nn oo re «/ 
void mclose( mptr ) 
MACRO *mptr; 
{ 
if( mptr ) 
{ 
if( mptr->fd ) 
fclose( mptr->fd ); /* Close the file */ 
mptr->mode = 0; 
} 
} 
[| Bw nn nn a a a rr x / 
int mgetc( mptr ) 


MACRO *mptr; 


{ 


/* Read from a macro opened with a previous mopen call. 
* mgetc is called by getline which is called by 
* process(). It's also called by expandstr() which may 
* be called while expanding a macro. Bunches of 
* recursion, use a big stack. Return EOF at end of macro. 


ctf 
register int rval; 


if( mptr->buf ) 
rval = *mptr->ptr ? (int) (*(mptr->ptr)++) : EOF ; 


else if (mptr->fd ) 
rval = ( mptr->fd ) 2? getc( mptr->fd ) : EOF ; 


else 
rval = EOF ; 


return rval; 


/* ea ha ts aa lp Se eke ease ears ae el in ee ss es Se hws ow dew Ges Gs are on mn we es as 0 se ee ak eed ew an oe OS x/ 
static void swrite( mptr, buf ) 

MACRO ad 11) 0) ats 

char *buf; 


/* Write into a string. buf is a pointer to the 
* string itself and mptr is a pointer to the macro. 
fg 


while( *buf ) 
mputc(*buft++, mptr) ; 


mputc( 0, mptr ); 


[ 8 mr rr nn ne ee en a nn nr nr nn nnn nee x/ 
void mwrite( mptr, term ) 

MACRO *mptr; 

char *term; 


{ 


/* Write into a macro. Input is taken from the 
* current input file and put into the macro until 
* a line starting with "term" is encountered. Note 
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that the input is not modified ( escape sequences 
are not expanded, etc.). Terminate on end of file 
or on encountering term at the beginning of a 
line. Mwrite is also used by the .ig command to 


pers input text. To do this, set mptr to 0. 


*» ee h 2 & 


char buf[{ MAXSTR ], *bp ; 
int not_eof ; 


while( not_eof = getline(buf,1,Ismacro ? mgetc : fgetc)) 
{ 


ift: ¥. *term: } /* Terminate on .. at bol */ 
if( buf(0) == '.' 6& buf{l) —= '.' ) 
break; 


} 
else if( *term == '\n' ) 


if( !*buf ) /* Terminate on ah empty line */ 
break; 


} 
else if( buf[(O]='.' 6& buf[1]=<=term(0] &6& buf[2])==term[1] ) 


break; 
if( !mptr ) /* For the .ig command. Ignore */ 
continue; /* input. af 


for( bp = buf ; *bp ; mputc( *bpt+, mptr ) ) 


mputc( ‘\n', mptr ); /* Getline doesn't buffer LF */ 


if( not_eof ) 


if( mptr ) 
mputc( 0, mptr ); 
} 
else 
{ 
err("EOF encountered while writing to %s macro\n", 
symname (mptr)); 
exit (1); 


void mputc( c, mptr ) 
MACRO *mptr;: 
{ 

char *name; 


if( mptr->fd ) 
{ 
/* Macro is on the disk: 
* Don't write a terminating null to a file. This 
* simplifies our life when we append to a macro 
* in a file. 
*/ 


if{ ¢:) 
putc(c, mptr->fd ); 


} 
else if( mptr->buf ) 
{ 
/* Macro is in memory: Write the character into 
* the buffer. Don't increment when we write a null 
* to make appending easier. 
if 


if( mptr->ptr - mptr->buf < MAXMBUF ) 
{ 


it(-<¢:) 

*(mptr->ptr)++ = c ; 
else 

*mptr->ptr = 0 ; 


/* Macro has grown too large. Create a disk 
* file and write it out to there. Free the 
memory previously used by the macro. 


name = fname( symname(mptr) ); 
if ( !(mptr->fd -= fopen (name 3 Mwy) ) 
{ 


err("Can't open temporary macgo file <%s>\n", 
name) ; 


} 

else 

{ 
fwrite( mptr->buf, MAXMBUF, 1, mptr->fd ); 
free( mptr->buf ); 
mptr->buf = mptr->ptr = 0 ; 


if (c) 
putc(c, mptr->fd); 


else /* New macro, allocate a buffer then write */ 
if( mptr->buf = (char *) malloc( MAXMBUF ) ) 


mptr->ptr = mptr->buf ; 
(continued on page 89) 
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WINDOW 1 


VEDIT PLUS is an advanced editor that bidlist ( infile ) 
makes your program development and FILE *infile: 
word processing as efficient and { 
easy as possible. VEDIT PLUS is 

simple enough to learn and use for 

the novice, [get has the speed, 

flexibility and power to satisfy the 

most demanding computer professional. 
VEDIT PLUS is particulariy suited for if (i) 
writing all types of programs and head = tail = ptr: 
lengthy documents such as reports or else { 

manuscripts. 


register |; 
struct node “ptr; 


for (i-O; i(termlim: i++) { 


tail -)next=ptr; 
: tail=ptr; 

This shows how VEDIT PLUS can perform 
windowing. One window is used for 

word processing, a second for program 
development, and the third for 
commands. 


tail-)next = NULL: 


return ( termlim qi 


WINDOW $ 
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LIGHT ENVI .COM -NUM _ DISK 
VEDIT RAM2 .DIC BM THES 
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VEDIT PLUS has been the#1 choice of professionals 
since 1980. Our latest release is even better - you can 
open windows to simultaneously edit several files, ac- 
cess many editing functions with pop-up menus, use 
keystroke macros to speed editing, and run other pro- 
grams or DOS commands from within VEDIT PLUS. 


Whether your needs are program development, tech- 
nical writing or word processing, VEDIT PLUS is your 
answer. With over 40,000 users you can depend on 
VEDIT PLUS to perform consistently and reliably. It is 
simple enough to learn for the novice, yet has the 
speed, flexibility and power to satisfy the most de- 
manding professional. 


Compare. No other editor is as powerful - unlimited 
keystroke macros, instant ‘off-the-cuff command mac- 
ros utilizing a complete programming language, sin- 
gle command file comparison, special word process- 
ing and programming features. No other editor is as 
easy to use - on-line help, pop-up menus, 75 page 
tutorial, 380 page manual, and VEDIT PLUS is com- 
pletely customizable. 


Fully supports color windows on IBM CGA & EGA, and 
even windows on most CRT terminals (including CRT’s 
connected to an IBM PC). Available for IBM PC, TI 
Professional, Tandy 2000, DEC Rainbow, Wang PC, 
MS-DOS, CP/M-86 and CP/M-80. Order direct or from 
your dealer. $185 


“To sum things up, VEDIT PLUS is a small, fast, 
sophisticated editor with a wealth of features and a 
good macro language. It offers many rewards for the 
dedicated programmer.” 

Computer Language, Chris Wolf, Scott 

Lewis, Mark Gayman 6/86 


“VEDIT PLUS is a wholly remarkable program: 
blindingly fast, extremely powerful, and highly flex- 
ible.” 

Profiles Magazine, Robert Lavenda 4/86 
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x CHOICE IN 
PROGRAMMABLE 
EDITORS 


CALL FOR FREE DEMO DISK! 


VEDIT PLUS FEATURES 


e Simultaneously edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual’ disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname and CP/M user number support. 

e Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 text registers. 

e Customization - determine your own keyboard layout, create 
your own editing functions, support any screen size, any CRT. 

e Optimized for IBM PC/XT/AT. Also 132 column & up to 70 lines. 


EASY TO USE 


e Interactive on-line help is user changeable and expandable. 
e On-line integer calculator (also algebraic expressions). 

e Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I or PASCAL. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language 
labels, opcodes, operands with comments unchanged. 

e Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e Word Wrap and paragraph formatting at adjustable margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

e Convert WordStar and mainframe files. 

e Print any portion of file; separate printer margins. 


MACRO PROGRAMMING LANGUAGE 


e ‘If-then-else’, looping, testing, branching, user prompts key- 
board input, 17 bit algebraic expressions, variables. 

e CRT emulation within windows, Forms entry. 

e Simplifies complex text processing, formatting, conversions 
and translations. 

e Complete TECO capability. 

e Free macros: ¢ Full screen file compare/merge e Sort mailing 
lists e Print Formatter e Main menu 








VEDIT and CompuView are registered trademarks of CompuView Products, Inc. MS- 
DOS is a registered trademark of Microsoft. CP/M is a registered trademark of Digital 
Research. WordStar is a registered trademark of MicroPro. 
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Want to turn programming time 
into prime time? Want to put some 
topspin on your techniques? Want 
to develop invaluable new resources? 

Time to hit the books. From 
Microsoft® Press. The best and 
brightest books in the business. 

Our parent company is Microsoft, 
the folks who taught the PC how to 
think. Our authors read like a Who’s 
Who of What’s What. 

Here are four ways to boost your 
computer’s [.Q.: 

Advanced MS-DOS® by Ray 
Duncan. From C programmer to A 
player—fast. With Ray Duncan's 
MS-DOS information bonanza: 
Disk files, records, directories, 
volume labels, internals, memory 
management, EXEC functions, 
installable device drivers. More. 
The featured columnist for 


Dr. Dobb’s Journal has it down. You can, too. $22.95. 
468 pages. Softcover. 





The Peter Norton Programmer's 
Guide to the IBM® PC by Peter 
Norton. Want to develop inter- 
mediate and advanced programs 
you can port from one branch 

of the PC tree to another? Want 
to understand the hardware? Soft- 
ware? The differences between PC, 
XT AT and Jr.? Get the latest tech 
talk? Relax. The leading authority in the field leads you 
out of the bog. $19.95. 448 pages. Softcover. 


Microsoft QuickBASIC by Douglas 
Hergert. Here’s the perfect way to 
get up to speed with QuickBASIC. 
Plus five, smart, sample programs 
that'll tweek your QuickBASIC 
skills: MORTGAGE, for data types; 
QUICKCHART, for graphics; 
SURVEY, for data-file techniques; 
EMPLOYEE, for random-access 
files; TWENTY-ONE, for IF. . _THEN...ELSE games. 
$18, 95. 384 pages. Softcover. 


Proficient C by Augie Hansen. 
Cross DOS and C and what do you 
get? Powerful programs that run at 
warp speed. Use the ANSI SYS 
device drive and the MAKE and 
LIB utilities to learn valuable, 
reuseable methods of structured 
program development. From the 
man whose proficiency at Bell 
Labs, General Dynamics and Rayethon was the spring- 
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board to this expert guide for intermediates—and experts. 


$22.95. 512 pages. Softcover. 


Don’t fumble for answers. Turn to 
Microsoft Press. Remember: What 
you get out of your PC depends on 
what you read into it. 


Available wherever books and software are sold. Credit card 
orders call 1-800-638-3030. In Maryland call collect, 824-7300. 





Microsoft and MS-DOS are registered trademarks of Microsoft 
Corporation. IBM is a registered trademark of International 
Business Machines Corporation. 
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Listing Nineteen (Listing continued, 


text begins on page 130.) 


if¢re:) 

*(mptr->ptr)++ =c; 
else 

*mptr->ptr = 0; 


err("Insufficient memory for macro\n"); 


J ee a ce a es es ee es cs es cc me ee cs me ee ee ne */ 
void munlink(m_name) 
char *m_name; 
{ 
/* Remove macro "m_ name" if it exists. Return 0 if 
* the register didn't exist; return 1 if it was 
* removed successfully. 
ay 
register MACRO *node; 
if( !(node = (MACRO *) findsym( Macros, m_name )) ) 
err("Macro <%2.2s> doesn't exist\n", ™m_ name ); 
else 
{ 
if( node->mode ) 
{ 
err("May not remove active macro, aborting\n"); 
€xbe( 1.) 
} 
if( node->buf ) 
free( node->buf ); 
else if( node->fd ) 
unlink( fname( m_name ) ); 
delsym( Macros, (BUCKET *) node ); 
} 
} 
fA carenistencerar here aggerspucsite ainsi to tsidacncaimccnsaphan facing Ss salt pe Cesiiins sisi tt alan vahvarap ell cna x / 
char *expandstr( name, target, maxstr ) 
char *name, *target; 
{ 
/* Expand str into the target string. Return the updated 
* target pointer, which won't be modified if the string 
* doesn't exist. In this last case print an error message. 
* Expand at most maxstr characters. Note that there's 
* a indirect recursion if the expanded sting contains 
* an escape sequence. expandstr() is called from 
* escape (). 
s/f 


register MACRO *mptr; 
register int c. 3 
char “oe 


if( mptr = (MACRO *) mopen(name, "r") ) 


{ 


} 


c = mgetc(mptr) ; 


while( c != EOF &6& 
{ 


maxstr > 0 ) 


if( c != Esc ) 

{ 
*targettt = c ; 
c = mgetc(mptr) ; 
--maxstr; 

} 

else 

{ 
p = target; 
c = escape(p, &target, 0, mgetc, mptr, maxstr); 
maxstr -= (target - p); 


} 


mclose( mptr ); 


return target; 


[ ® ene enn a = «/ 
expand _macro( str ) 
char *str; 
{ 
/* Expand the macro. The first word in str is the name. 
* Note that expand is called by process() which calls 
* expand. There can be some nasty recursion 
* going on if macro expansion is nested too far. On the 
* other hand the code needed to expand nested macros 
* is much cleaner. MAXNEST will help this a little. 
x 
* Return 0 if the macro doesn't exist of it the nest 
* level is too high, 1 otherwise. 
® 
* This routine is called recursively in the case of 
* nested macro expansions. Be careful with static 
* variables. 
rs 


register int 
register MACRO 


i, onargs; 
*mptr; 


(continued on next page) 
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Along With Your Computer, Your Time 
is the Most Important Thing You 
Own. . .So Why Waste It? 


Quilt Programmer Productivity 
Tools will help you manage your 
software projects and get control 
of your time! 

skMs™ 

Software Revision Management System Intelligent Program Generation Utility 
=Full Featured Revision Control System [=Controls the rebuilding of even the most 
~All Versions stored in a Single ASCII File | complex systems 


=Support for Unlimited Libraries = Revlieves the developer of remembering which 

=Support for all programming languages modules need to be rebuilt based on recent 

=Allows you to use your current compilers | changes, how to rebuild them, and in what 
and editors without order to rebuild them 


= Windowing Shell interface to simplify use] = Works with most compilers, assemblers, and 
=MERGE facility to consolidate different linkers 
development paths easily, while pointing | -s full macro definitions, UNIX make- 
out confli file compatability, recursive invocations, and 
command line parameters 
«Interfaces completely with SRMS, providing 
you with a complete set of productivity tools 
to handle any size project 


= Requires DOS 2.1+ 


SRMS Version 3.0 eveeeeee $185 | QMAKE Version 1.2...c.ccccsceseecseesees $99 


SRMS + QMAKE .z....cccccocccesesesseseee $250 
NEW } TXT Tools 
QSE - Quilt Text Stream Editor 
CBRN Que ap 
QDIFF - Quilt Windowing File Difference Utility 
TXTTOOLS Version 1.0.........cc0000000. $85 


7048 Stratford Road 
Woodbury, MN 55125 


(612) 739-4650 


Volume Discounts and Dealer Inquiries Welcome 
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SCIEN Cie. GFADMICS 


Over 100 C routines make 
scientific plotting easy 


linear, log, & polar plots 

bar charts & Smith charts 

contour plots with labels 

3-D curves, 3-—D surfaces 

4 curve types, 8 markers, errorbars 
14 fonts, font editor 

unlimited levels of SUB’ scripts 


4096 x 3120 resolution in 16 colors 
on EGA, Tecmar, Sigma boards 


-> zoom, pan, window and merce plots 
-> high resolution printer dumps 
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SOURCE INCLUDED for persona/ use only 
$350. Demo $8 
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Microsoft, Lattice, DeSmet, Aztec, C86 compilers 
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Listing Nineteen 
(Listing continued, text begins on page 130.) 


char *macv [MAXARGS], *name ; 
static nestlev = 0 ; 
if( nestlev < MAXNEST ) 
++nestlev; 
else 


{ 
err( “Macro nesting too deep, ignoring <ts>\n", str); 


return 0; 
} 
name = str; /* extract name s/f 
str =~ skipto(.* °, str, Ese }: /* Skip past name */ 
Lf: *str-) 
*str++ = '\O'; /* terminate name & */ 


str = skipspace(str, Esc); /* skip whitespace */ 
if( !( mptr = (MACRO *) mopen(name, "r") ) ) 
return 0; 


/* Create the vector array pointing into the argument 
* array. Null terminate each argument string. Quoted 
* arguments are recognized. 


*/ 
for( i= 0; *str && i < MAXARGS ; i++ ) 
: LE( *ate oe, 88 
macv(i}) = ++str ; 
str = skipto( ‘"*, str, Esc ): 
ies 
macv[{i]) = str ; 
str. =-skipto( °°, str, Esc }: 
if¢ *str ) 


{ 
*str++ = 0; 
str = skipspace(str, Esc); 


} 


cnargs = NARGS; /* Set # args at current lev */ 
NARGS = i; 
while( i < MAXARGS ) /* Put null in unused args «/ 


macv(it++]) = "" ; 


process( (FILE *) mptr, symname(mptr), 1, macv ); 


NARGS = onargs; /* clean up af 
--nestlev; 
mclose( mptr ); 
return 1; 
} 
/* Ee Fe ee ee ee */ 


dump _mac( macro, file ) 
char *macro, *file; 


{ 
/* Dump the indicated macro out to the indicated file. 
af 


MACRO *mptr; 
FILE *fp; 
register int o 


if( !(fp = fopen(file,"w")) ) 
err("Can't open <%ts> for output\n", file ); 


else if( mptr = (MACRO *) mopen(macro, "r") ) 


while( (c = mgetc(mptr)) != EOF ) 
putc(c, fp): 


mclose( mptr ); 
fclose( fp ): 


mcreate( name, term ) 
char *name, *term; 
{ 
/* Create a macro. If it already exists, delete it 
* first. 
xf 


register MACRO *mptr; 
if( mptr = mopen( name, “w" ) ) 


mwrite( mptr, term ); 
mclose( mptr ); 


mappend({ name, term ) 
char *name, *term; 
{ 
/* Append to an existing macro. Create it if it 
* doesn't exist. 
af 2 
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register MACRO *mptr; 


if( mptr = mopen( name, "a" ) ) 


mwrite( mptr, term ); 
mclose( mptr ); 


/* wee eee oe Oe SOS ee eee eee ew oem wowewwo emo eo omen oom oeooecewe «/ 
screate(name, str) 
char *name, *str; 
{ 
/* Create a string. If it exist, delete it 
af 


register MACRO *mptr; 


if( mptr = mopen( name, "w" ) ) 
{ 
swrite( mptr, str ); 
mclose( mptr ); 


sappend(name, str) 
char *name, *str; 


{ 
/* Append to an existing string. If it doesn't 


* exist, create it. 

=y 

register MACRO ‘*mptr; 
if( mptr = mopen( name, “a"™ ) ) 


swrite( mptr, str ); 
mclose( mptr ); 


/* es «/ 
Static void prnt( m_name, p ) 
char *m_name; 
MACRO *p; 
{ 
FILE *stream = NULL; 
int len; 
char str[80]; 


if( p->buf ) 
len = strlen( p->buf ); 


else if( p->fd ) 
{ 
if( !(stream = fopen( fname(m_name), “rb" ))) 
{ 
err("Can't open %s\n", str ); 
return; 
} 


len = filelength( fileno(stream) ) ; 
} 


printf ("+-------- <%s> (td chars in %s) -------- +i", 
m_name, len, stream ? “file" : “memory" ); 


#ifdef DEBUG 
printf("| mode=0xtx=<%c>, buf=0x%tx, ptr=0x%tx, fd=0x%x\n", 
p->mode, p->mode, p->buf, p->ptr, p->fd ) 


PERCE Pee aoe Van 32 
#fendif 


if( !stream ) 
fputs( p->buf, stdout ); 
else 
{ 
while( fgets(str, 80, stream) ) 
fputs( str, stdout ); 


fclose(stream); 
} 


putchar('\n'); 


printm() /* Print out all the macros / 


register int lev; 


if( !Macros ) 
err("**** There are no macros ****\n"); 


else 
{ 
ptab( Macros, prnt ); 
printf( “\nThe end macro is <%s>\n", 
*Endm ? Endm : “NONEXISTANT"™ ); 
} 
} 
[ Rm ean a an a a a rrr x/ 
static void delm( m_name, p ) 
char *m_name; 
NARS. APF (continued on next page ) 
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What if each change 
you made to your 
program was ready to ~ 
test in seconds instead 
of minutes? 


“The SLR tools will change the 
way you write code. I don’t use 
anything else.” , Joe Wright 


RELOCATING MACRO ASSEMBLERS @ Z80 e 8085 e HD64180 

e Generates COM, Intel HEX, Microsoft REL, or SLR REL 

@ Intel macro facility 

e All M80 pseudo ops 

@ Multiple assemblies via command line or indirect command file 

e Alternate user number search 

e ZCPR3 and CP/M Plus error flag support, CP/M 2.2 submit 
abort 

e Over 30 user configurable options 

e Descriptive error messages 

e XREF and Symbol tables 

© 16 significant characters on labels (even externals) 

e Time and Date in listing 

e Nested conditionals and INCLUDE files $ 49 95 

e Supports math on externals ij 
requires Z80 CP/M compatible systems with at least 32K TPA 


___§$ LR_Systems 


1622 N. Main St., Butler, PA 16001 
(412) 282-0864 (800) 833-3061 


Circle no. 78 on reader service card. 
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C-PROGRANMIMERS 


File System Litility Libraries 


code included, No Royalties, Powerful & Portable. 


75,00, 


* High speed random and sequential access. 
® Multiple keys per data file with up to 16 million records per file. 
* Duplicate keys, variable length data records. 


40.00 


® Greatly speeds application development. 

* Combines ease of use of database manager with flexibility of program- 
ming language. 

® Supports multi key files and dynamic index definition. 

® Very easy to use. 


59.00 


® Patterned after the UNIX utility. 
° Works for programs written in every Janguage. 
® Full macros, File name expansion and built in rules. 


Full Documentation and Example Programs Included. 
ALL THREE PRODUCTS FoR— “EE$EEI_OO 








For more information call or write: 1343 Stanbury Drive 
Oakville, Ontario, Canada 
L6L-2d5 
(416) 825-0903 
Credit cards accepted. Dealer inquiries invited. 
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80386 


SOFTWARE DEVELOPMENT TOOLS 
The Phar Lap 80386 Software Development Series: 


386|ASM/LINK by Phar Lap (MS-DOS®) $495 
Full-featured macro assembler and linker. Includes a de- 
bugger and 32-bit protected mode runtime environment. 


Listing Nineteen 


(Listing continued, text begins on page 130. ) 









/* Delete disk file associated with macro */ 


if( p->fd ) 
unlink( fname( m_name ) ); 






void mac_clean() 






/* Delete all macros that are on the disk */ 









if( Macros ) 
ptab( Macros, delm ); 


80386 High-C™ by MetaWare (MS-DOS®) $895 















. [ewer cree ences geen cnsieee meres ons eceniymniph sn casin nibh bins antimeininaniaibiaieiinanastmmsateny teen 
80386 Professional Pascal™ (MS-DOS?®) $895 * Stuff to handle to diversions. It is too complicated to 
* use recursion here, mostly because you can be processing 
by MetaWare * a macro while you are diverting output (and have several 
* levels of nesting to boot. Modifying process() to handle 
* changes in both input and output prooved to be too 
UNIX™ and VAX/VMS® cross tools (call) * difficult. The Say thing to os re maintain a special 
* diversion stack on which we keep the various Sa ga we 
iy é * want to save when we change diversions. Pushdiv() and 
The wait for professional software development tools * popdiv() (below) do the stack maintenance. 
for the 80386 is over! Whether you are upgrading an F 
existing IBM PC application to the ’386, moving a Stacie, ane Pushy Saper 







MACRO *ndptr; 
{ 


mainframe application down to a PC, or writing the 
next PC best-seller, the Phar Lap 80386 Software 
Development Series is for you. It is an integrated line 
of products which provides everything you'll need to 
create and run 80386 protected mode applications 


under MS-DOS. 






register DIV *div; 






if( Dsp <= 0 ) 
{ 






err("Diversion nesting too deep\n"); 
return 0; 






} 






div = &Dstack[--Dsp];: 


#ifdef DEBUG 
printf("“Opening diversion, saving at Dstack[%d)\n", 


(617) 661-1510 













Dsp); 
Phar Lap Software, Inc. “The 80386 Software Experts” wet 
div->ofile = Ofile 
; div->isdiv = Isdiv 
60 Aberdeen Ave. Cambridge, MA 02138 div->divtrap = Divtrap; 
div->dtrap name[0] = Dtrap name[0); 
Circle no. 343 on reader service card. div->dtrap name[1] = Dtrap name[1}; 
div->vert = VERT; 
div->width = Divwidth; 
Divwidth = 0; /* Width of current diversion */ 
Ofile = (FILE *)ndptr; /* output macro pointer =y 
Isdiv Se /* Ofile points at a macro od 
Divtrap = -l; /* No diversion trap set ey 
Dtrap name(0] = 0 ; /* Diversion trap has no name */ 
return 1; 
for the 
/ 1 cae Gas a ee SS SS SE eS OS OE SN SRO SSSR WSS Hes Damme eOONas See «/ 


static MACRO *popdiv() 
{ 


Atari ST 


"Don't even think about 


/* Restore the enviornment active before the most recent 
* push div call. Return a pointer to the diversion macro 
* or 0 if no enviornment to restore. 






*/ 
° '"! Aas sea etee wee a i 
IC register *div: 
another CS compiler Sept. '86 if( Dsp >= MAXDIV ) /* No diversion is active a/ 


return 0; 





#ifdef DEBUG 
printf("“Closing diversion, poping Dstack(%d}\n", Dsp); 
#endif 


and Introducing: 


Mac-to-GS C « 
Mac-to-GS Pascal 





div = &Dstack([Dsp++]; 


/* Put back the old enviornment. Note that VERT is 

* jnitialized to 1 and incremented after every line 
* output to the diversion. This way \n(.d will be 1 
x 
x 






on line 1 of the diversion. HEIGHT, however, is the 
height of the most recent diversion (which will be 
* one less than VERT. 





. 3 a/ 
Macintosh to Apple IIGS cross compilers. rval (MACRO *)Ofile; 
c ile div->ofile : 
The fastest development systems for the IIGS. Isdiv div->isdiv 
vtrap div->divtrap 





Dtrap name[0]) 


1 div->dtrap name[0]; 
Dtrap name([1) 


div->dtrap name[1]; 


Megamax 






VERT div->vert; 
Divwidth div->width; 
return( rval ); 
Development Systems ) 
Box 851521 + Richardson, TX 75085 ee cen RoE Dd By LENT eel ee, E 
(214) 987-4931 + Telex 5106018356 char *name: 
{ 
Circle no. 352 on reader service card. er SARCES SO ee ee 
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register MACRO *mptr; 


if( mptr = mopen( name, “w" ) ) 


if( !pushdivimptr) ) 
mclose( mptr ); 


VERT = 1; /* Vertical place in current div */ 
Divwidth = 0; /* Width of current diversion a] 


dappend( name ) 
char *name; 
{ 
/* Open an existing diversion for appending. The 
* current diversion height and width number registers 
* will be changed to reflect this diversion. 
a/ 


register MACRO ‘*mptr; 


if( mptr = mopen( name, “a" ) ) 
{ 
if( !pushdiv(mptr) ) 
mclose( mptr ); 


VERT = mptr->vert +1 ; 
Divwidth = mptr->width 


endiv() 
{ 


/* Close the most recently opened diversion 
* We must decrement VERT because it's incremented after 
* the final \n of the diversion is processed. 
* If no diversion is active, nothing is done. 
a/ 


register MACRO ‘*mptr; 
int height, width ; 


height = VERT - 1 ; 
width = Divwidth ; 


if( mptr = popdiv() ) 
{ 
mputc( 0, mptr ); 


mptr->vert = HEIGHT = height ; 
mptr->width = WIDTH = width ; 


mclose( mptr ); 


Stuff to handle to traps: 


et 
static int findtrap( name ) 
char *name; 
{ 
/* Look for the trap associated with the macro 
* "name." Return an index if found, -1 if not. 
*f 
register int i; 
for( i = MAXLTRAP+1 ; --i >= 0; ) 
if( !strcemp(name, Linetrap[i]) ) 
return i; 
return -1; 
} 
| Bn na a rrr x / 
set_linetrap( name, lnum ) 
char "name; 
int lnum; 


{ 
/* Set a line trap that will execute the macro called 


* “name” when output line number “lnum" is passed. If 
* the name * is missing, clear the trap at the 

* indicated location. 

af 


register UCHAR *lp; 


if( lnum < 0 ) 
lnum += PGLEN ; 


lp = (UCHAR *)( Linetrap + lnum ); 

if( lnum < 0 || lnum > MAXLTRAP ) 

err(“line trap must be in the range 0 - %d\n", 
MAXLTRAP ) ; 

else if( !*name ) 

; sip = 0; 


else 


(continued on next page) 
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TOTAL CONTROL 
with LMI FORTH™ 





For Programming Professionals: 


an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 


For Development: 
Interactive Forth-83 Interpreter/Compilers 


e¢ 16-bit and 32-bit implementations 

Full screen editor and assembler 

Uses standard operating system files 

400 page manual written in plain English 

Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 


For Applications: Forth-83 Metacompiler 


Unique table-driven multi-pass Forth compiler 

Compiles compact ROMable or disk-based applications 

Excellent error handling 

Produces headerless code, compiles from intermediate 

states, and performs conditional compilation 

¢ Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

¢ No license fee or royalty for compiled applications 


For Speed: CForth Application Compiler 


e Translates “high-level” Forth into in-line, optimized 
machine code 
e Can generate ROMable code 


Support Services for registered users: 


e Technical Assistance Hotline 
e Periodic newsletters and low-cost updates 
e Bulletin Board System 


Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 


rf . 

Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 





Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 

France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 

Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 

Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 
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COBOL 


SCREENS 
io vm... SOF EENDAY 


SCREEN MANAGEMENT SYSTEM 





SUBSTANTIALLY REDUCE 
APPLICATION DEVELOPMENT 
TIME! 


SUPPORTS MICROSOFT COBOL; 
REALIA COBOL; RM COBOL; AND 
RM COBOL 8X $175.00 EACH 


FLEXIBILITY IN PANEL 
PAINTING; FLEXIBILITY AT 
RUNTIME! 


Also supports Lattice C $150.00; 
Mark Williams C $150.00; DeSmet C 
$125.00; Turbo Pascal $100.00 and 
IBM/Microsoft Assembler $100.00. 
PROTOTYPE PANELS BEFORE 
YOU WRITE CODE! SCREENPLAY AVAILABLE 
THROUGH THE LINKMASTER 
FULL CONTROL OVER KEY ON-LINE NETWORK! 
ASSIGNMENT! 

AVAILABLE THROUGH MAJOR 
PROGRAMMING SOFTWARE 
DISTRIBUTORS. 


POWERFUL, ONE-STEP PANEL 
PAINTING! 


NO ROYALTIES / NOT COPY & 
PROTECTED! 


ORDER SCREENPLAY NOW AND 
SAVE $100.00 ON COBOL SPIl, 
OUR COBOL SOURCE CODE 
GENERATOR. AVAILABLE MAY 
1987. 


NO RISK 30 DAY MONEY BACK 
GUARANTEE! 


— CALL FOR FREE DEMO DISK! 


PROFESSIONAL TOOLS 
FOR PROFESSIONAL 
PROGRAMMERS 





FLEXUS INTERNATIONAL CORPORATION 
P.O. BOX 9119. MORRISTOWN, NJ 07960 
(201) 895-4724 
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A PROGRAMMER’S 
TOOL BOX 


A DP MANAGER’S 
BEST FRIEND 


PURE GENIUS IS NOT ENOUGH 
(YOU STILL NEED THE RIGHT TOOLS) 


@ DESIGN MENUS 
@ CREATE PROTOTYPES 
@ CREATE TUTORIALS 


@ CAPTURE SCREENS 
@ CREATE DEMOS 
@ RUN TIME MODULE 


ENHANCE HIGH LEVEL LANGUAGES WITH FULL 
ACCESS TO ALL CAPABILITIES IN YOUR OWN CODE 


"source code was reduced by one third...” 

"15 minutes to design a sophisticated screen...” 
Scott McCaffrey, Musco of PA 

"In a word, fantastic...” 

”...1 just returned my copy of Dan Bricklin’s 

Demo Program.” Thomas Emr, Dir. of Marketing - ADP Inc. 


Z 
CENESIA 


OP" SISIEMS 
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5403 Jonestown Rd., Harrisburg, PA 17112 
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Listing Nineteen 
(Listing continued, text begins on page 130. ) 
*ipt+ = *namet+t+ ; 


*Iipt+ = *name ; 
*lp = 0; 


movetrap( name, where, isoffset ) 

char *name; 

{ 

Deal with the .ch command. If "where" is 0 
delete the trap else move it to the indicated 
position. If “isoffset" then add "where" to 
the current position. Note that it is not an 
error to clear a non-existant trap. 


/ 


The first set_linetrap call deletes the 
existing trap, the second one reinstalls it 
at the new location. 


*nenesee he & H 8 


~s 


register int i: 


if( (i = findtrap(name)) >= 0 ) 


set_linetrap( "", i ); 
if( where ) 
set_linetrap( name, isoffset? itwhere : where); 
} 
} 
YOR a a a « / 


pr_traps() 

/* Print all active traps: */ 
register int i, none = 1; 

printf ("Line traps:\n"); 

for( i = 0; i <= MAXLTRAP ; i++ ) 


if( Linetrap[i}[0] ) 


if( none ) 
{ 

printf("execute: on line:\n"); 
none = Q; 


} 


printt(" 62.28 $4d\n", Linetrap[i]}, i): 


} 


if( none ) 
printf( "There are no line traps set.\n"); 


if( Divtrap ‘= <1 ) 
printf("Diversion trap <ts> set at line %d\n", 
Dtrap name, Divtrap):; 
if( Itrap != -1 ) 
printf("Input line trap <%s> set at line %d\n", 
Itrap name, Itrap):; 


do divtrap() 
/* Spring the diversion trap */ 


if( !expand_macro( Dtrap name ) ) 
err("Can't spring .%2.2s from diversion trap\n", 
Dtrap name ); 


do_linetrap( lnum ) 
{ 
/* Spring a line trap on line “lnum", if one exists */ 


register UCHAR Strap: 


if( 0 <= lnum 6&& 
{ 


lnum <= MAXLTRAP ) 
trap = (UCHAR *)( Linetrap + lnum ); 
if( *trap && !expand_macro(trap) ) 


err("Can't spring trap for line %d (%2.2s).\n", 
(char *)lnum, trap ); 


FB en cet ti cn em le tp nt ar ee wos os eins Sean */ 
distance () 
register char *trap ; 

register int line 

a Compute distance from current line to next trap 


=f 
line = OLINE ; /* == Current output line */ 


(continued on page 98) 
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THE PROGRAMMERS SHOP 


Offers a 31 Day Money Back Guarantee on any product in this ad. Call Today. 


COBOL 


PROGRAMMING Ser eenpla lV : 


PRODUCTIVITY! SCREEN MANAGEMENT SYSTEM 


SUBSTANTIALLY REDUCE APPLICATION DEVELOPMENT TIME! 

Save valuable time by avoiding the tedious, time consuming process of writing 
screen handling source code. screenplay’s easy-to-use panel painter allows you to 
create I/O panels, pop-up help windows or menu panels which you use in your program. 
FLEXIBILITY IN PANEL PAINTING; FLEXIBILITY AT RUNTIME! 

True screen handling flexibility is yours with screenplay, because you can override 
default panel settings to design practically any type of panel imaginable! screenplay 
continues to provide the flexibility you need during the operation of your program by 
allowing you to change just about any panel characteristic at runtime. 

PROTOTYPE PANELS BEFORE YOU WRITE CODE! 

With screenplay, you can prototype your draft screens before you write a single 
line of COBOL source code. These can then be reviewed with your boss or your 
customer for final approval, before you start writing source code. 

MORE THAN ONE LINKING OPTION! 

In addition, linking screenplay’s runtime unit is your choice! You can link 
screenplay by interrupt or directly to your application. And if your compiler doesn’t 
allow a direct link, you can take advantage of a dynamic load option for linking 
screenplay to your application. 

FULL CONTROL OVER KEY ASSIGNMENT! 

You can assign practically any keyboard key to serve as a specific cursor function 
and define exactly which keys will return control to your application. screenplay gives 

ou the power to entirely reconfigure the keyboard for your program. 
POWERFUL, ONE-STEP PANEL PAINTING 

screenplay’s panel painting process is a "one-step" approach. There’s no need to go 
through a separate process to establish fields on your I/O panel. What's more, you can 
use any ASCII character in your screenplay panels. You also have full control over 
character attributes such as foreground and background color, intensity and blinking. 
EASY PANEL FILE MANAGEMENT! 

Panels are stored in an ASCII file which is compressed to save memory and disk 
space screenplay’s Panel Management Facility allows you to easily copy panels across 
and within files, rename panels, delete panels, test and print panel details. You can 
even print an image of the panel for your documentation! 

NO ROYALTIES / NOT COPY PROTECTED! 

screenplay’s panel control runtime unit, better known as The Panel Control Facility 
may be linked to your program without paying a dime in royalties. In addition, 
screenplay isn’t copy protected to make it even easier-to-use. The Panel Control Facility 
allows you to control almost every panel characteristic by using parameters. 

SUPPORTS MANY COBOL COMPILERS! 

Supports IBM COBOL, Microsoft COBOL, Realia COBOL, Ryan-McFarland COBOL 

and Ryan-McFarland COBOL 8x; List Price $175.00, OUR PRICE $155.00 


PROFESSIONAL TOOLS 
FOR PROFESSIONAL 
PROGRAMMERS 











| 





Software 
Development 
Tools 


Quelo Cross Assembler Packages are Motorola compatible. 
Each package includes a macro assembler, linker/ 
locator, object librarian, utilities for producing ROMable code, 
extensive indexed typeset manuals and produces S-records, 
Intel hex, extended TEK hex, UNIX COFF and symbol cross 
references. Portable source written in ‘“‘C”’ is available. It has 
been ported to a variety of mainframes and minis including 
VAX, Sun, Apollo, Masscomp, and Charles River. Native ver- 
sions available for Amiga and Atari ST. 


68020 Cross Assembler Package 
Supports 68000, 68010, 68020, 68881and 68851. 
For CP/M-68K and MS/PC-DOS, $ 750 


68000/68010 Cross Assembler Package 
For CP/M-80, -86, -68K and MS/PC-DOS, $539 


68000/68010 Simulator 
For MS/PC-DOS by Big Bang Software, Inc. 


SIM68K is a cost-effective software simulator for de- 
bugging 68000/68010 code on an IBM-PC or compatible, 
$285. 





Circle no. 302 on reader service card. 


Trademarks: CP/M, Digital Research; MS, Microsoft Corporation; Quelo, Quelo, Inc. 


HOURS 


8:30 A.M. -8:00 P.M. E.S.T. 










800-421-8006 





7s at hand 


HELP 


HELP/Control™ — an on-line help system for the IBM-PC. HELP/Control 
includes HELP/Runtime, HELP/Popup and our help screen compiler. 


With HELP/Runtime, a few simple subroutine calls add context sensitive on- 
line help to your application. HELP/Runtime includes tested interfaces for C 
(Microsoft and Lattice), Pascal (Microsoft and Turbo), IBM BASIC (Interpreter 
and Compiler), Microsoft FORTRAN, COBOL (IBM and Realia) and assembler. 


Use our concise screen definition language to build your help files. You define 
the bold captions on your help screens and specify the links to other screens. If 
you have existing documentation files, it's easy to mark them up to get on-line 
quickly. You can put an entire user or reference manual on-line, completely 
accessible to the user at all times. 

HELP/Popup provides memory resident access to your custom help screens. 
The complete package (software, on-line manual, printed manual, and demo 
programs) costs $125.00 and includes a royalty-free license to add 


HELP/Runtime to your applications and a license to make 25 copies of 
HELP/ Popup. 
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LIST: $125 
OURS: $109 





MDS, Inc. 207/772-5436 


Double Your C Language 
Programming Productivity 


Instant-C is an incremental compiler for C that makes every aspect of C 
programming as fast as possible. Load your existing C source code into 
Instant-C. Whenever you change your code with Instant-C’s built-in full-screen 
editor, only the changed portions of your programs are recompiled. The 
fully automatic compilation process includes linking of your multiple 
modules, and therefore takes no link time. Instant-C compiles more than 
twice as fast as normal compilers. More importantly, compile time is 
proportional to how much code you change, not to the size of your entire 
program. With Instant-C, you Will be running your program within a few 
seconds after editing a change. 


Instant-C’s over 350 precise diagnostic messages help you understand 
immediately how to fix the problem. Instant-C shows any errors on the 
editor screen, with the cursor placed exactly at the trouble spot. 


Instant-C runs your program at compiled speeds with full run-time checking 
of pointer references and array indexes. Run-time checking catches prob- 
lems as they occur, when they are easiest to fix and understand. This 
checking reduces the number of times you need to modify and test your 
program. 


Instant-C has the best testing and debugging capabilities available. You have 
full access to the C language and to your program. At any time you can 
examine or modify variables (including lonals), evaluate expressions or 
macros, and call functions interactively. You can examine and change your 
code, then resume execution. Use any number of conditional breakpoints. 
Instant-C’s visual debugging shows your source code, highlighting the line 
being executed. Instant-C supports multiple screens, virtual screens, and non- 
standard graphics devices. Instant-C’s data monitor stops execution when 
specified variables or memory areas are changed. 


Instant-C is compatible with Lattice 2.x, 3.x and Microsoft 3.0, 4.0. Get 
Instant-C’s superb debugging, run-time checking, and incremental 
compilation to double your C programming productivity. 


: P.O. Box 480 
Rational Natick, MA 01760 
Systems, Inc. (617) 653-6194 





THE PROGRAMMER’S SHOP™ 
5-D Pond Park Road, Hingham, MA 02043 
Mass.: 800-442-8070 or 617-826-7531 
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Byte Magazine called it. 


“CIARCIA’S 
SUPER 
SYSTEM” eff 


Single Board Computer 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4” x 71/2" single board system. 





6MHz 64180 CPU 
(Z80 instruction superset), 256K RAM, 
8K Monitor ROM with device test, disk 
format, read/write. 
e Mini/Micro Floppy Controller 
(1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 31/2!’ 51/4” 
and 8” drives). 
e Measures 4” x 71/2’ with mounting holes 
e One Centronics Printer Port 
e Two RS232C Serial Ports 
(75-19,200 baud with console port 
auto-baud rate select). 
e ZCPR3 (CP/M 2.2/3 compatible) 
e Multiple disk formats supported 
e Menu-based system customization 


New Low Prices 


$B180-1 
SB180 computer board w/256K 
bytes RAM and ROM monitor 


cc elme ek tude ane em $299.00 
SB180-1-20 

same as above w/ZCPR3, ZRDOS 

and BIOS source ........- $399.00 
COMM180-S 

SCSl interface .......... $150.00 


Now Available 


TURBO MODULA-2 


TURBO MODULA-2 with 
Graphix Toolbox 





TO ORDER 
CALL TOLL FREE 


1-800-635-3355 


For Technical Information or in CT, call: 


1-203-871-6170 


TELEX 
643331 





S 
eS Micromint, Inc. 
eae 4 Park Street 
Vernon, CT 06066 





Teach your 386 













for the 80386 puts you on speaking 
terms with the world. 

Now you can support C, PASCAL, 
have to sacrifice their present software investments because they 
can be ported easily —in many cases simply by recompiling. 

So whether you're designing a 386 system or looking for languages 


ifferent languages. 
Our family of true compilers 
- luent! “sj PL/I, COBOL, BASIC, RPG II, 
and FORTRAN. 
This means your customers won’t 
for your new system, call us now, or write for more information. ° 
Language Processors, Inc., 400-1 Totten Pond Rd., 
Waltham, MA 02154, (617) 890-1155. 














LPI is a trademark of 
Language Processors, Inc. 


Copyright 1986 Language Processors, Inc. 


THE LANGUAGE SOURCE 
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Personalize 
your computing 
environment. 


The MKS Toolkit now contains 
the Korn shell command interpreter. 


The MKS version of Bell Labs’ Korn shell has this and more: 

e the full power of the UNIX System V.2. © command aliases 
Bourne shell e interactive command-line facilities 

e the most requested features of e previous command history and editing 
Berkeley's C shell e a powerful programming language 

e the full-UNIX utility of executable shell ¢ shell variable expansion 
files e arithmetic evaluation 


All this has been fine-tuned to create the optimum environment under DOS. The 
Korn shell is just one of over 100 commands — fully compatible with UNIX System V.2 
— now contained in the MKS Toolkit, including the following: 


awk cat 
dd df 
file find 


date 
fgrep 


chmod cmp cp 
diff du 
head help 
nm od paste pg 
split strings tail time 
and much, much more... 
These programs run from the shell or command.com under DOS on machines such 
as the IBM PC, XT, and AT, the AT&T 6300, and most PC compatibles. Full documen- 
tation is included. Phone support is available 9-6 EST. Not copy protected. 


Everything for only $139. 


Mortice Kern Systems Inc. 
43 Bridgeport Road East, Waterloo, Ontario, Canada N2J 2J4 


For information or ordering call collect: (519) 884-2251 


Prices quoted in U.S. funds. MasterCard and VISA orders accepted. OEM and dealer inquiries 
invited. UNIX is a trademark of Bell Labs. MS-DOS is a trademark of Microsoft Corp. 


cpio ctags cut 
echo ed egrep ex 
join Ic ls more mv 
prof rm sed size sort 

touch tr uniq vi wc 
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verything you need to write dramatic 
graphics effects into your Eco-C88 C 
programs. Some of the features include: 
e Support tor EGA, CGA, and Z100 
Over 100 graphics and support functions, many 
of which are PLOT-10 compatible. 
e Many low level support routines reside outside 
your small model code-data area 
e Can write dots thru the BIOS (for compatibility) 
or to memory (for speed) 
Graphics function help from CED editor 
available 
World, pixel or turtle color graphics modes 
47 standard fill patterns, 17 line dashing 
patterns, Hershey fonts, plus user defineable 
fill, dash and fonts 
Supports view areas, rotateable fonts, clipping, 
arbitrary fill areas, extensive error checking, 
examples, and user’s manual. 
A must for the graphics enthusiast and a 


bargain at only 3995 


*Requires Eco-C88 C Compiler. 





This windowing library allows you to add pop up 
windows in your C programs quickly and easily. 
Use them for help windows, selection menus, error 
messages, special effects — anywhere you need an 
attention getter. Just some of the features include: 
e CGA, EGA, and monochrome support 
e Slow mode option for ‘flicker’ displays 
e Control any program that goes through the 

BIOS 






















—ecccnnetst aT, 


ECO-C88 : 
COMPILER Ecosoft 


Support Products 





Use up to 255 windows 

No special window commands; use print f () 
Resize and move windows 

Custom window titles and borders 

Can be used with ANSI device driver 

Most of window's code-data lies outside small 
model limits 

Use any of the IBM text or block characters 
User's manual and examples 

The Windowing Library requires an IBM PC 
compatible BIOS and the Eco-C88 C compiler. 


ONLY $29.95 





Now you can combine your modules, functions, 
and subroutines into your own library for easy link 
commands. Fully compatible with ANY standard 
OBJ format files (not just Ecosoft’s products). 
With the Ecosoft librarian, you can: 

e Add, delete, and extract from a library 

¢ Get table of contents or index of a library 

e Combine libraries, control library page size, use 
switches for combinations, process complex 
library requests, use wildcards, and do library 
directives from command files. 

e Complete with user's manual 
A valuable addition for any programmer. 


ONLY $29.95 


Orders only: 


1-800-952-0472 


Technical Information: 


(317) 255-6476 i. 
ORDER FORM CLIP & MAIL TO: Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 








ITEM PRICE QTY TOTAL 
Flexi-Graph Graphics $39.95 
Window Library $29.95 
Eco-Lib Librarian $29.95 
Eco-C88 C Compiler CED $59.95 
SHIPPING 
TOTAL (IND. RES. ADD 5% TAX) 
PAYMENT: LC) VISA CL) MC L) AE L) CHECK 
CARD # EXPIR DATE 
NAME 
ADDRESS 
CITY STATE 
i) ee Ry eS 
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A C compiler with many ANSI enhancements 
at an unbelievably low price. The Eco-C88 C 
compiler has: 

e Prototyping (the new type-checking 
enhancement) 

Enum and void data types 

Structure passing and assignment 

All operators and data types 

A standard library with more than 200 func- 
tions (many of which are System V compatible 
for greater code portability) 

e CC and mini-make that all but automates the 
compile process 

8087 support (we sense the 8087 at runtime 
— no dual libraries) 

e ASM or OBJ output for use with MSDOS linker 
Tiered error messages — enable-disable lint- 
like error checking 

Fast compiles and executing code 

e Expanded user’s manual 

e CED full-screen program editor 

Everything you need at the unbelievable 
price of $59.95. 

Eco-C88 C compiler requires an IBM PC, XT, or 
AT (or compatible) with 256K of memory, 2 disk 
drives and MSDOS 2.1 or later. 


Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 





ECOSOFT 











Listing Nineteen 
(Listing continued, text begins on page 130. ) 
trap = (UCHAR *)( Linetrap + OLINE ); 


while( ++line<=PGLEN && line<=MAXLTRAP && !*trap ) 
trap += sizeof(LTRAP); 


return line - OLINE } 


End Listing Nineteen 


Listing Twenty 


[*----- i a han ah ca tw apr fsa gan es es a Se pl > Se aw dis aw aS a wep Sw ee ae as Sree tr en ant ar en aah esas 
* NRMAP.C: Routine to map strings of type char to strings 
" of type CTYPE. The only externally accessable 
* subroutine is: 

. void map( dest, src ) 
x UCHAR: “src; 

* CTYLE” “~dest: 

® 

* 


Copyright (c) 1987 Allen I. Holub. 


#include <stdio.h> 
#include <ctype.h> 
#include “nr.h" 

#include "nrmap.h" 


void map( dest, src ) 
UCHAR *SrC; 

CTYPE *dest; 

{ 

/* Map the input character array over to a CTYPE array 
in order to get some room for attribute bits (ie. 
bold, italics, overstruck, etc.). Set the attributes 
as we process. 


Only printing characters can have attributes. Motion 
is transmitted to text() as two bytes, the first 
indicates the direction and the second is a count. 
map puts the direction in the low byte and the count 
in the high byte. If dest == 0 then the various 
character attributes are set but no other processing 
is done. 
/ 


*emnrst eee + * * BH FD 


register unsigned i, c; 


while( i = *src ) 
{ 


+t+82C. 3 


if( i=-vVMOVE || i == HMOVE ) 
{ 
1 = *srct++ | MODE BIT; 


i |= (i == VMOVE) ? VM BIT : HM BIT ; 


if( i & 0x80 ) 
4 |= Ox0f00; /* Sign extend */ 


} 
else if( i==CH_FONT ) 
{ 
Bold = Italics = Over = 0; /* attributes off */ 


1 = *src++ | (FONT _BIT | MODE BIT): 


} 
else if ( i==CH_ATTRIB ) 
{ 
Lf: "sre .) 
{ 
switch( *srct++ ) 


{ 
case BOLD: Bold = 1; break; 
case ITALICS: Italics = 1; break; 
case OVER: Over m= is break; 
} 
} 
CLRWIDTH( i ); 
continue; 
} 
else /* Set the appropriate attribute bits */ 
{ 
c= i; 
switch (i) 
{ 
case LITCHAR: c=i=*srott ; break; 
case SOFT HYPHEN: c=1=*src++ ; HYPHENATE(i); break; 
case ZWIDTH: i=*src++ ; G = =1; break; 
case UP_SPACE: c=i=' ° ; SETNOPAD(i); break; 
) 
if((Num_under && isalnum(i)) || Cont_ul || Italics) 
SET_UL( i ): 
if( 'WHITE(i) ) /* Don't boldface or */ 
{ /* overstrike spaces */ 


if( Num_os || Over ) 
SET_OS( i ); 
if( Num_bold || Bold ) 
SET _BO{ 1-):; 
} 


if( 0 <= c 6& c <= MAX CHARS IN FONT ) 
SETWIDTH( i ); 
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else 
CLRWIDTH( i ); 
} 


if( dest ) 

adestt++ = i; 
else 

return; 


if( Num_under ) --Num_under; 


if( Num_bold ) --Num_bold ; 
if( Num_os ) —=Num 6s "> 
Lf£¢ Cont. nb. >) =-font. vl Ss 
«dest = 0; 

} 

End Listing Twenty 
e s 

Listing Twenty-one 

/* NRMSC.C Stuff that didn't fit anywhere else 

® 


x (C) 1987, Allen I. Holub. 
*/ 

#include <stdio.h> 

#include <ctype.h> 

#include “nr.h" 


extern char *skipto(); 


typedef struct 
{ 


unsigned adjusting :1; /* adjustment enabled */ 
unsigned bold :1; /* boldface active */ 
unsigned fill :1; /* filling enabled wt d 
unsigned italics :1; /* italics active ay 
unsigned over :1; /* overstrike active af 
int adjmode; /* adjustment mode (.ad M) “/ 
int cmd; /* current command character */ 
int cont_ul; /* lines to underline (.cu) «ld 
int curfont; /* Current font (.f) wf 
int esc; /* current escape character a/ 
int indent; /* current indent (.in) a/ 
int itrap; /* current input line trap / 
char itrap_name[2]: /* name of the above my 
int lspace; /* line spacing (.1s) ay 
int nobreak; /* current nobreak character a/ 
int nm_blanks; /* line numbering stuff (.nm) “f 
int nm_on; fx 13 7 
int nm_mult; /* = 7 
char *nm_str; c+ “ “3 
int num bold; /* # of lines to boldface (.bo) */ 
int num center; /* # of lines to center (.ce) */ 
int num under; /* # of lines to underline (.ul) */ 
int num_os; /* # of lines to overstrike (.ul) */ 
int offset; /* current page offset (.po) a} 
char *rmarg str; /* margin character xy 
char *lmarg str; /* “ wf 
int tab; /* tab expansion character as 
int leader; /* leader expansion character of 
int linlen; /* line length (.11) af 
int tempin; /* temporary indent e/ 
int title len; /* length of 3-part title ad 
TSTOP tabs; /* previous tab stops «/ 
int *fillbuf:; /* fill buffer contents ay, 

} 

ENVIORNMENT; 

#define ESTACKSIZE 5 

static ENVIORNMENT Env_stack[ESTACKSIZE}; 

static int Esp = ESTACKSIZE ; 

[ 8 eee eee ee ee eee we ww wn ow oe ee ee ee ee oe ee 

* ENVIORNMENTS (.ev command processing) 

* 

push_env() 

{ 
ENVIORNMENT "env; 
extern int *saveq(); 


if( Esp <= 0 ) 

{ 
err(“Environment stack full\n"); 
return: 

} 


env = éEnv_stack[--Esp]; 


env->itrap name[0} 
env->itrap name([1) 
env->lspace 


Itrap name[0]; 
Itrap name([1]}; 
LSPACE; 


env->adjmode = Adjmode; 
env->adjusting = Adjusting; 
env->bold = Bold; 
env->cmd = Cmd_chr; 
env->cont_ul = Cont_ul; 
env->esc = Esc; 
env->fill = FILL;. 
env->curfont = CURFONT; 
env->fillbuf = saveg(): 
env->indent = INDENT; 
env->italics = Italics; 
env->itrap = Itrap: 


(continued on page 100) 
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Listing Twenty-one 
(Listing continued, text begins on page 130. } 


env->linlen = LINLEN; 
env->nm_on Nm_on; 
env->nm_blanks Nm_blanks; 
env->nm_mult Nm_mult; 
env->nm_str Nm_str; 
env->num_bold Num_bold; 


env->num_center 
env->num_under 


Num_center; 
Num_under; 


env->num_os Num_os; 
env->nobreak Nobreak; 
env->offset OFFSET’ ; 
env->over Over; 
env->rmarg str Rmarg_ str; 
env->lmarg str Lmarg_ str; 
env->tab Tab; 
env->leader Leader; 
env->tempin Tempin; 


env->title len Title len; 
memcpy ( env->tabs, Tabstop, NUMTABS ); 
Num_under =0; 

Num_bold =0; 

Num_center =0; 


Num_os =-0; 
Bold =0; 
Over =0; 
Italics =0; 
Cont ul =0; 
Tempin =0; 
} 
/* Oe a ne Sa = Se oe eww = ee oe oe oe ewe ee ee enews x / 
pop env() 
{ 
ENVIORNMENT “*env; 


if( Esp >= ESTACKSIZE ) 
err("“Enviornment stack empty\n"); 
return; 
} 
D(printf£ ("Restoring from Env_stack[%d]\n", Esp)); 


env = éEnv_stack[Espt+t]; 


Adjmode env->adjmode; 
Adjusting env->adjusting; 
Bold env->bold; 
Cmd_chr env->cmd; 
Cont_ul env->cont_ul; 
Esc env->esc; 

FILL env->fill; 
restorg env->fillbuf ); 
INDENT env->indent; 
Italics env->italics; 
Itrap env->itrap; 


Itrap_name[0) 
Itrap name[1)}) 


env->itrap name[0]; 
env->itrap name[1); 


LINLEN env->linlen; 
LSPACE env->lspace; 
Nm_blanks env->nm_blanks; 
Nm_on env->nm_on; 
Nm_mult env->nm_mult; 
Nm_str env->nm_str; 
Num_bold env->num_bold; 


Num_center 
Num_under 


env->num_center; 
env->num under; 


Prabhu poav dt pe ebb eae kee tb pon tb ep 


Num_os env->num_os ; 
Nobreak env->nobreak; 
OF FSET env->offset; 
Over env->over; 
Rmarg str env->rmarg str; 
Lmarg str env->lmarg str; 
Tab env->tab; — 
Leader env->leader; 
Tempin env->tempin; 
Title len env->title len; 


memcpy ( Tabstop, env->tabs, NUMTABS ); 


1£( CURFONT != env->curfont ) 
chgfont( Fonts[{CURFONT].name ); 


CURFONT = env->curfont; 


/* nn a a a wr ww ww wn wo ee eee ee ee ee ee 
x Tabs, Leaders, and Fields 
sal 3 

tabset( s ) 

char 7S 


{ 
/* S is a string of comma or space delimited elements 
* of the form: {+]Nt 
* where N is the position of the tab, t is the type 
* (L/C/R). The optional + means add N to the previous 
* tab stop value. 
* 
/ 


int prevtab = 0, tab=0 ; 
for( ; *s ; prevtab = tab ) 
if( *s == '+' ) 
{ 


S+t; 
tab = prevtab + uatoi( és ); 
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else 
tab = uatoi( &s ); 


if( tab < 1 || tab >= NUMTABS ) 


{ 
err("Tab stop must be in the range 1-%d\n", 
; NUMTABS-~1); 


return; 
} 


if( *s=='R’' || *s=='C' |] *gas'L! ) 
Tabstop(tab] = *st+ ; 


else if( *s=-=" * || *s== ',* {| !*s ) 
Tabstop[(tab] = 'L'; 


while( *s == * * || *g == ', ') 
S++; 


/* ewe ew ew ww ow we oe ww we ww ww ww wow ww www wow oe | ea ee we we seeseeens x / 


tabclr () /* Clear all tabs x / 


{ 
memset ( Tabstop, 0, NUMTABS ); 


tabprint () /* Print tabs af 


{ 
register int is 


for( i = OFFSET; --i >= 0 ; outc(' ') ) 


° 
, 


for{ i = 1; i <= LINLEN ; i++ ) 


outc( Tabstop[i] ? Tabstop{i) : °.* ); 
oute('\r'); 
oute('\n'); 
} 
[ 8 nn a ne et 
* FONT support routines: 


=f 


findfont( fname ) 
int fname; 


{ 
/* Search for a font in the font table ( Fonts[] ). 


* Return an index into the table or -1 if the 
* entry isn’t there. 


«/ 

register int Ls 

register FONT *fp; 

if( fname == 'R’ ) /* Roman font is at Font[0) */ 
return 0; 


if( isdigit( fname ) ) 


if( (i = fname - '0') > NUMFONTS-1 ) 
err( “td: Illegal font number\n", i ); 


else if( ! Fonts[{i).name ) 
err( “Font number %d is undefined\n", i ); 


else 
return i; 
} 
else 


{ 
fp = éFonts[(NUMFONTS-1]; 


for( : fp > Fonts ; --fp ) 
if( fp->name == fname ) 
return( fp .~ Fonts*)-: 


} 


return -1l; 


chfont( nfont_name ) 


/* Called from nrout.c to actually change fonts. 
* nfont and prevfont are indexes into the Fonts[(] 
* table for the new and previous fonts. The CURFONT 
* number register holds the index for the current font. 
* Fonts(0) is the Roman font. 


5s 

int nfont; 

static int prevfont = 0; /* Roman */ 
FONT *p; 


if( nfont_name == PREVIOUS ) 
{ 
nfont = prevfont; 
prevfont = 0; 


} 
else if( (nfont = findfont(nfont_name)) < 0 ) 


{ 
err( "Font <%c> unavailable, using (R)oman\n", 
nfont_name); 


nfont = 0; 


(continued on page 102) 
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NOW INTRODUCING VIRTUAL MEMORY SUPPORT 
BetterBASIC with the optional Virtual Memory Manager can 
now address 400,000,000,000 bytes of memory! 


BetterBASIC Application 
Development System $199.00 
The BetterBASIC Application Development 





PC-BASICA and GW-BASIC, yet provides numer- 
ous new and sophisticated language features such 
as: program Block Structures, recursive Procedures 
and Functions with local variables, structures, 
Records and Pointers and last but not least sup- 
port of large memory. 


Virtual Memory Manager $99.00 
The Virtual Memory Manager expands 
Better-BASIC’s data space into the giga- 
byte range and finally breaks the 640k byte barrier 
for array sizes. Not only can you directly address 
all expanded memory supported by LIM/EMS 
memory boards, you can also address any RAM 
Disk, Hard Disk or even a Floppy Disk as if they 
e ordinary RAM. 








C-Link $99.00 
This software package allows BetterBASIC 
to access C-language library functions from 
within BetterBASIC. Currently supported are 
Lattice and Microsoft C. 





Screen Design System $199.00 
This package truly takes the drudgery out 
of creating display screens and data entry 
screens. An interactive Screen Editor lets you 
“paint” your display screens exactly as you want 
them to appear in your program. The completed 
screens take the form of disk resident images. 

A run time library module provides many new 
BetterBASIC procedures and functions for inter- 
acting with the display screens to simplify the 
use of pop-up menus and data entry screens. 





System provides very close compatibility with 









Btrieve™ Interface $99.00 


This is a high level BetterBASIC interface 
to the ever popular Btrieve™ file manager 
from SoftCraft. Instead of Assembly language calls 
this module provides high level BetterBASIC pro- 
gram access to all Btrieve™ functions. Use it to design 
our own database application in BetterBASIC. 


8087/80287 Math Module $99.00 


This module allows you to use the 8087 

or 80287 co-processor to significantly accel- 
erate programs which are floating point calcula- 
tions intensive. 







Decimal Math Module $99.00 


If you are a business programmer, you are 
sual DYObably frustrated by the many roundoff 
problems caused by ordinary IEEE format floating 

point numerical operations. The BetterBASIC 
Decimal Math Module which offers variable preci- 
sion from 6 to 24 digits, drastically reduces roundoff 
problems in business applications. 


BetterTools™ $99.00 
This is a collection of more than 150 useful 
extensions to BetterBASIC such as time 
and date computations, encryption and decryp- 
tion, low level file directory access, hyperbolic 
function and much more. No BetterBASIC pro- 
grammer should be without BetterTools™ 





Virtual Memory Manager- 

Network Version $250.00 
This version of the Virtual Memory Manager 
allows Virtual Memory to be distributed through- 
out a Local Area Network. It also provides File, 
Records and Field Locking to control access to 
shared data. 





Call our Toll Free Order Line 
1-800-255-5800 


B 
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Summit Software Technology, Inc-" 
106 Access Road, Norwood, MA 02062 
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Listing Twenty-one 
(Listing continued, text begins on page 130. ) 


if( CURFONT != nfont ) 
{ 


if({ *Fonts(CURFONT].emac ) 
expand macro( Fonts(CURFONT].emac ); 


p = &Fonts(nfont]) ; 


Right_str = p->right 
Left_ Str = p->left 
Hs_amt = p->resolution 


if( *(p->smac) ) 


expand macro( p->smac ); 
} 


prevfont = CURFONT; 
CURFONT =nfont ; 


End Listing Twenty-one 
Listing Twenty-two 


* NROUT.C: Output routines for nr. 


* * Copyright (c) 1987 Allen I. Holub. All rights reserved. 


#include <stdio.h> 
#include <ctype.h> 
#include <stdarg.h> 
#include “nr.h" 

#include “nrmap.h" 
#include “nrtlen.h" 


[ *------ -- -- - - - eee e+ ee ee ee ee ee ee eee 
* isword(c) evaluates to true if c can be in a word. Words 
* are composed of all characters except padable 
* Space characters. 
ay 


#define isword(c) ( ! (WHITE(c) && PADDABLE(c)) ) 


err( fmt ) 
char *fmt; 
{ 
/* Print out an error message. If a macro is being 
* processed, the macro name is give, otherwise the 
* current input file name is given. This routine 
* works like printf() in all other respects. 
* 
/ 


va_list args; 
va_start( args, fmt ); 


fprintf( stderr, “\OO7JERROR(%sts, line td): “, 
Ismacro 2 “macro: 2 se 
*Ifilename ? Ifilename : “stdin", INLINES); 


vfprintf( stderr, fmt, args ); 


ngaps( line, total _units, total chars ) 
CTYPE *line; 
int *total units; 
int *total chars; 
{ 
/* Returns the number of paddable space characters on 
* the line. Modifies *total units to hold the number 
* of horizontal units occupied by non-space characters. 
"total chars is modified to hold the total number of 
= characters on the line. 


register int utotal = 0; 
register int ngaps = 0; 
CTYPE *D; 

FONT * (tabs 


for(p = line; *p ; +#+tp ) 
if( WHITE(*p) ) 
++ngaps; 
else if ISCHAR( *p ) 
utotal += CWIDTH( *p ); 


D( printf( “ngaps(): tc “, *p ) 


); 
D( printf( “= %d units\n", CWIDTH(*p) ) ): 


} 


*total chars = p - line ; 
*total — _units = utotal; 


return ngaps; 
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radjust( line, col ) 
CTYPE *line ; 


int col 3 
{ 
/* Do right adjustment. That is spread the words 
* as evenly as possible on the line so that the 
* rightmost character of the rightmost line is at 
* the indicated column (col). This is accomplished 
* by replacing all paddable space characters with 
* motion characters. 
* 
/ 
static int left = 0; 
int num_units, num_chars, gaps, need ; 
int space_between_Characters; 
int extra_space; 


gaps = ngaps( line, énum_units, énum_chars ); 


if( gaps == 0 ) 

return; 
need = (col * SPACE SIZE) - num_units ; 
space between _ characters = need / gaps ; 
extra space = need % gaps ; 


D( outints( “radjust(), input line:", line 
D( printf("Total units = td, “, num units 
D( printf("total chars = %d\n", num chars 
D( printf("Padding to td. columns" 7 col 

D( printf£("= %d units\n", col * SPACE SIZE 
D( printf(“%td gaps spread over td units\n", gaps,need) 
D( printf("%d units/gap, “, space_between characters) 

D( printf ("td extra units\n\n", extra_space) 


— ee ee ee ee 
Se Se Se Se Fe Be Be te 


for(; gaps > 0 ; linet+ ) 
{ 


if( WHITE(*line) ) 
{ 
--gaps: 
*line = MOTION( space between characters ); 


if( left {| (gaps <= extra space) ) 
{ 
if( --extra_space >= 0 ) 
++(*line) ; 
} 
left = !left; 


justify( line, mode ) 
CTYPE *line 
int mode 


{ 


/* Do simple line adjustment on str (ie. do left, 
* right or center mode adjusting). If the 
* adjustment mode is BOTH then the routine radjust() 
* is called and we don't do anything here. 
7 
/ 


int num_units, num_chars, need, gaps ; 


if( !*line || mode == LEFT ) /* Left adjustment */ 
return; /* is no adjustment */ 


if( mode = BOTH ) 
return radjust( line, TLEN ); 


gaps = ngaps({ line, énum_units, énum chars ); 
need = U_TLEN - (num_units + (gaps * SPACE _SIZE)); 


if( need <= 0 ) 
return; 


memcpy( line + 1, line, (num chars + 1) * sizeof (CTYPE)): 


*line = MOTION( mode==CENTER 2? need/2 : need ); “ 
} 
[ 8 eee nnn ne eo + ee ee ee ee ee ee af 
title( instr ) 
char sinstr ; 
{ 
/* Do a three part title: /stril/str2/str3/ 
* The character held in Page ch is expanded to the 
* current page number. In the absence of an argument 
* do nothing. 
x 
* Titles are done using the normal output function. 
* The delimiters are replaced with normal spaces and 
* normal spaces are replaced with unpaddable spaces. 
* Then outbuf() is called with adjustment mode 
* turned on to print the line. Outbuf() will spread 
* the three parts of the title evenly on the line. 
“7 
UCHAR *s3 
int delim, ndelim ; 
Static CTYPE dest[{ MAXSTR ]; 
int i, fmt; 
UCHAR pagenum [60]; 
if( !(delim = *instr++) ) 
return ; 
ndelim = 3; 


for( s = instr; *s ; st+ ) 


(continued on page 104) 
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Listing Twenty-two 


(Listing continued, text begins on page 130.) 
( 


if( *s =e § FY 
{ 


} 
else if( *s == Page ch ) 
{ A 


*“s = UP_SPACE; 


deletes( 1, s ); 


i = nrtoi( "%", &fmt d3 
itoascii ( pagenum, fmt, i Ee 
s += inserts( pagenum, s, MAXSTR ) - 1; 
else if( *s == delim ) 
{ 
if( --ndelim > 0 ) 
*s = J ae 
else 
{ 
ge *40*; 
break; 
} 
} 
} 
map ( dest, instr Ee /* map to CTYPE array */ 
radjust ( dest, Title len ); /* Spread the line af 
pad ( OFFSET 2 /* Output page offset, */ 
outs ( dest $2 {* title string, a/ 
; outchar ( TO_CTYPE(’\n') ); /* anda newline «ff 
FP ea nos an np ah SS irae aw a es eb gs hs aps pss se dd alas a Sw ine tins sae ee af 


outbuf( line, addhyphen ) 
register CTYPE *line; 
{ 


a 
* 


Output a line of text, adding indent, and page 
offset. Add a \n at eol. Do line adjusting or 
centering as required. If adhyphen is true, a hyphen 
is added immediatly after the line is printed. 


The line array must be MAXSTR characters long. 


This routine is calied by dofill when filling is on 
and is called directly by text when it is not. If 
Nospace is enabled (by a .ns command) then lines 


consisting of single newline characters will not 
be printed. 


If *line is null then we are printing a blank line. 
In this situation line numbering (.nm) is not done 
and only one blank line will be printed, regardless 
of the line spacing (.1s). If there is not left or 


eer margin string defined, no offset is printed. 


i a Y 


register int a 
char numbuf [32] ; 


D( outints( “outbuf", line ); ) 


if( !*line «&& Nospace ) 


return; 
Nospace = 0; /* Re-enable spacing on a non-blank */ 
/* line. */ 
/* Then output the page offset and */ 
/* the left margin string sd 
if( !Isdiv &6&@ (*line || *Lmarg str || *Rmarg str) ) 


pad( OFFSET ); 


if( *Lmarg str ) 
outchs( LImarg str ); 


if( Nm_on && (Nm_blanks || *line) ) 
{ 
+ Number the line if necessary 
x 


if( LINE % Nm _muilt ) 
pad( strlen(Nm_ str) + 3 ); 


else 
{ 
sprintf(numbuf, “t3d%s", LINE, Nm str ); 
outchs( numbuf ); “- 
} 
LINE++; 
} 
if( *line ) /* followed by the line if there */ 


pad( INDENT + Tempin ); 


/* Now, either center or adjust the line as 
required. Note: Num center (set by the .ce 
command) is different from a centering 
adjustment mode (ie. the former applies to 
input lines, the latter to output lines. 


/ 


*nne eh ® 


if({ addhyphen ) 
{ 


/* This kludge tricks justify() into 
= thinking that the line is shorter than 
* it really is when we add a hyphen. 


“as 
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Centering and adjusting are mutually exclusive. 


} 
pad (i) 





if ( Num_center ) 

{ 
justify( line, CENTER ); 
--Num_center; 


} 
else if( Adjusting ) 
justify( line, Adjmode ); 


if( addhyphen ) 
--Tempin; 


register int a3 


{ 


/* Print i spaces using outchar () 
af 


while( <--i >= 0 
outchar( TO CTYPE(* *) ); 


outc( cj 


int 
{ 


* es eeeee he ee ee © HR HH HR 


Cc; 


Lowest level output function. Handles control 
character suppression. “Ispage" tests to see if a 
page is in the list specified with a -o command line 
switch. Note that direct calls to outc don't update 
any global variables. outchar() is the normal output 
function and should be used except in wierd 
situations (ie. the .ou command). Note that \n is not 
translated into \r\n by outc (it is so translated by 
outchar). 


Note that outc() processes normal char's, not CTYPE’s. 


A minor problem here is diversions. We are writing 

in untranslated mode so that control sequences can 
get to the printer unmolested. With diversions though, 
we need to translate character by hand (strip off \r) 
so that when they are read back (via mgetc) they 
won't be re-translated on output. 


c &= Oxff ; 


if( Isdiv ) 


{ 


/* If we're processing a */ 

/* diversion, put the text */ 

2Et te VE) /* there. a / 
mputc( c, Ofile ); 


} 
else if( ispage( PAGE ) ) 


/* If this is a printing page as per the -o flag 
* print the character 
*/ 


if¢ No entl €6 “fe < © * It ¢ > ORE) ) 
{ 


printf( “<%02x>", c ); 
if( c == '\n'" ) 
printf’ “An®. }: 
} 
else 


/* It's virtually impossible to get untranslated 
* standard output out of the Microsoft compiler. 
* so do it here with a direct DOS call. 

a/ 


bdos( 2, c & Oxff, 0): /* putc( c, stdout ) */ 


outchar( big c ) 


CTYPE 


~s 
s 


*eneee te © # eR 


big c; 


Medium level character output function. Translates 
attributes into strings (ie. for bold chars etc.). 
Updates the line and page numbers when necessary. 
Springs traps as required. 

Handles the various motion escape sequences \u \d etc. 
Returns the width on the output line of c. This will 
be 0 if c is a motion character, a change font, a 
newline, etc. It will be 1 otherwise. 


Note that outchar() is passed CTYPE's, not normal 
characters. 


/ 


register unsigned int rval, c ; 


static int 


lastch = 0; 


int width; 


rval = 0; 


if( ISMOTION(big c) ) 


{ 


do ul ({ (CTYPE)0O 


): /* All attributes off first */ 
do_bold({ (CTYPE)O ); 


(continued on page 106) 
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Knowledge engineering. 
The right stuff for the challenges 








wre a doubt, some of 
the most exciting possi- 
bilities in AI research center on 
applications to space technology. 
Remotely and autonomously con- 
trolled manipulation devices are 
two likely results of this expand- 
ing technology. They could help 
minimize out-of-vehicle work 

by astronauts, saving time, 
money, and improving safety. 


Addison-Wesley AI books show 
you the history and development 
of the research and applications 
that make such achievements a 
possibility—from AI’s basic con- 
cepts to the tools and techniques 
that go into building state-of-the- 
art expert systems. 


of a technological world 


We publish the leaders. 


Revolutionary progress is 

the normal course of events 

in AI, and for over a decade, 
Addison-Wesley has provided 
the medium for such leaders in 
the field as Patrick Winston, 
Philip Klahr, Donald Waterman, 
Eugene Charniak, and Drew 
McDermott. 


Addison-Wesley books by such 
distinguished leaders in the field 


are the most comprehensive 


guides to AI you'll find anywhere. 


Plus, they show you the artistry 
of using knowledge engineering 
techniques to help solve world- 
wide problems. You'll see, for 





instance, how a rule-based expert 
system can help combat interna- 
tional terrorism. And you can 
examine the tools and techniques 
The Rand Corporation used to 
create an experimental system 
called SWIRL, which can help 

a country evaluate its air defense 
capabilities. 


Elite books from 
outstanding authors 


For the ultimate guide to the best 
in Al literature, look to Addison- 
Wesley. We bring you the authors 
whose visions define the state-of-the- 
art. For a free catalog of our AI 
books, please write or call Denise 
Descoteaux, Dept. P-349. 


Your number one source for the 9 ys books on artificial intelligence. 


Addionn 





Reading, MA 01867 
(617) 944-3700 
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Listing Twenty-two 
(Listing continued, text begins on page 120. ) 


do _over( (CTYPE)O ); 
motion( MVAL(big c), big c ); 


} 
else if( ISFONT(big c) ) 
{ 
do_ul ( (CTYPE)O ); 
Go _bold( (CTYPE)O ); 
do_over( (CTYPE)0O ); 
chfont( FVAL(big_c) ): /* then change fonts a/ 


else 
{ /* os. OF print a character: sd 4 
do_ul (big c); /* Underline character if reqd.*/ 


TEXTLEN = outs( line ); /* Finally output the line */ 
if( addhyphen ) 
{ 


TEXTLEN++; 
outchar( TO CTYPE(’-") ); 


/* Print the right margin character if needed. The 
* first call to pad() (in the if) prints the left 
* margin padding only if this is a blank line (normaly 
* we don’t want to print any padding on blank lines). 
The call to pad() gets us to the right margin. 


if( *Rmarg str ) 
{ 
if( !*line ) 
pad( INDENT + Tempin ); 


pad( TLEN - TEXTLEN ); 
outchs(Rmarg_ str); 
} 


/* Reset Temporary indent. We couldn't do it earlier 
* because it’s used in the TLEN macro. We don't want 
* to reset it if the line is blank though. 


“7 


if( *line ) 
Tempin = 0; 


/* Output at least 1 but as many newlines as are 
* required by the .1s N command. Only one line is 


* output if we are doing a blank line. 
i 


for( i= (*line ? LSPACE : 1); --i >= 0; ) 
outchar( TO CTYPE('\n') ); 


outs( line ) 

CTYPE *line; 

{ 
/* Output an integer string using outchar(). 
* Returns amount of space occupied on the output 
* line by p. This will not include motion, font 
* changes, etc. 


af 
register rval = 0 ; 
D({ outints( “outs", line); ) 


while( *line ) 
rval += outchar( *line++ ) ; 


return rval; 


} 
$ifdel. CEBUG | /8 ----- 3 in cede cae cee iennsedawe */ 


outints( str, line ) 
char “str; 
CTYPE *line; 
{ 
/* Output a CTYPE string using putchar, putting 
* “gtr® in front of. tt. 
a 3 


printf("ts <", str ); 


for(; *line ; putchar( *linet+ & Oxff ) ) 


presnet(“>\n") : 
} 


ftendif /*-----------~--------- = -- = nn = == -- = -- + ral 
outchs( str ) 
char SStrs 
{ 
/* Output a character string using outchar() af 


while( *str ) 
outchar( TO CTYPE( *str++ ) ); 


/* a eae an ah ca ene ti ces eas catch ms magn civics ecibvcai vet > eth sis nln ih i ig Ga Mic ek canis sda Ses en scr aa ca a eh nes eb ca caySois guns tnimts in af 
ots({ str ) 
char *strs 
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/* Output a character string using outc. Note that 
* \n will not be translated into \r\n and no global 
* vars will be updated. 
at 


while( *str ) 
oute( *strt++ ): 


/* owe we oe we oo we we we wo ww ww we ww ww ww www ww www ww ows ow ww ow oo we ow oe eer ow wo we «/ 
do_ bold (big c); /* Boldface character if reqd.*/ 
do over (big c); /* Overstrike character if reqd.*/ 
c = CHAR(big c); /* Translate to normal char ay 
if( c == '\n') 

{ 
nextline( lastch == '\n' ); 
} 
else 
width = CWIDTH( big c ); 
if({ width > 1 ) /* In a proportional font */ 
motion( width/2, (CTYPE) (MODE BIT|HM BIT)); 
outc( c ); /* Print char and advance */ 
/* 1 HMI unit 
££. Width >, 1.3 
motion( (width/2) - 1, 
(CTYPE) (MODE _BIT|HM BIT) ); 
if( !HASWIDTH(big c) ) 
motion( -Fonts(CURFONT] .widths[c], 
(CTYPE) ( MODE BIT | HM BIT )); 
rval = 1; 
} 
lastch = c; 
} 
return rval; 

} 

/* OS OSS SO SSO SSO OS OE Oe eee ee Owe ewe OE STOO SSO eee oe x/ 

motion( count, how ) 

int count; 

CTYPE how; 

{ 

/* Take care of motion. \u \d \v etc. */ 
register int negative = 0; 
itt count: <. 0 -) 
{ 
negative = 1; 
count = -count; 
} 
while( --count >= 0 ) 
if( HORIZONTAL(how) ) 
ots( negative ? Left_str : Right _str ); 
else 
ots( negative ? Up str :-Dn_str ); 
} 
} 
[ #22 ----- -- - -- - - nnn xf 


nextline( hardcr ) 


{ 


~ 
* 


* 2s 2 8 Oe SS HS Se He Se Oe | 


/ 


- Adjust the line and page numbers or diversion 
height as appropriate. 

- Spring a line trap if one is present. A line 
trap is expanded when a “line of text is output 
whose vertical size reaches or sweeps past the 
trap position." In other words, a line trap at 
line 10 will be triggered immediatly after line 
10 is printed. Trap 0 is used to spring a trap 
at the top of the page: it is done in outchar() 
before the first character on a page is printed 
(we can't do it at the end of the current page 
because it wouldn't be sprung on the first page). 

- Adjust various number registers as appropriate. 

- Process the -s command line switch if one was 
given. 

- Translate \n into \r\n or do Wordstar mode if 
necessary. 


extern int Stop; /* Declared in nr.c ef 


if, 
{ 


'Wordstar ) /* Not in wordstar mode */ 


oute( *\r® ); 
oute(. "\n® _)': 


else if( harder ) /* In wordstar mode: a / 


{ 


oute( ‘\r' 


he /* Saw two successive af 
outc( "\n* ) 
) 
) 


: /* newlines in «/ 
oute( *\r* ); /* outchar(). a/ 
outc( *\n°* ); 


} 
else if( Wordstar = 1 ) /* Use Wordstar soft a/ 


{ 


/* carriage return for */ 


(continued on page 108) 
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Utah Pascal 
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UCSD PASCAL 
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Marshal Pascal 
IBM Pascal 
Turbo Pascal 


Oregon Pascal-2 
Microsoft C 4.0 
Code Size Sec. 
Unparalleled Speed and Power 


Marshal Pascal™ is the most highly code-optimized Pascal 
compiler for PCs. Period. In fact, Marshal Pascal produces 
code so fast and compact that even the most efficient C 
compilers fall behind in performing many operations. Also, 
Marshal Pascal is an ISO implementation thus offering porta- 
bility to other computer environments. You may address as 
much memory as your operating system allows and a variety 
of memory models are supported. Among the useful exten- 
sions included are: separate compilation of modules (both 
Modula-2 and Pascal forms), structured constants and struc- 
tured function values, variable-length string types and pro- 
cedural parameters. 


Turbo Pascal® Translator 


Our translator brings your Turbo Pascal software over to an 
ISO/Marshal-readable format. You can watch your present 
Turbo programs run in a fraction of their former time and code 
space! 


8087-80287 Support 


Marshal Pascal supports the Intel 8087-80287® math pro- 
cessors inline. If you don’t have the math chip, then 87-287 
code simulation is a provided option. 


Sieve 





Marshal Language Systems 


1136 Saranap Ave., Ste. P, POB 2010, Walnut Creek, CA 94595 


| ads Vn OF 0 Ba 6 Bie 
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Turbo Pascal 





Gauss-Seidel Floating Point 





Min. Code Size Sec. Code Size Sec. Code Size 


Microsoft Linkability 


Marshal Pascal’s true relocatable linker allows you access 
to the Microsoft family of languages and assemblers. A flexi- 


ble object code librarian and powerful overlay capabilities are 
also included. 


Powerful Compile Options 


Marshal Pascal gives you a number of compile options, 
including an optimization by-pass for speedier compiles, I/O 
“fine-tuning”, constant folds and a syntax evaluator just to 
name a few. A wealth of compile-time checks permits you to 


find the more subtle logic errors, reducing debugging time 
enormously. 


Efficient Large Heap Model for AI Applications 


Marshal Pascal gives users efficient dynamic allocation for 
symbolic processing in Al applications. Marshal Pascal also 
allows functions to return arbitrary structured types. This can 
be used to combine the efficiency of Pascal with the powerful 


functional programming style enjoyed by such languages as 
LISP. 


The Price? $189, includes everything. 


Supports PC-DOS®, MS-DOS®, CP/M-86®, Concurrent DOS®, and soon Xenix 286/386®! 


To order your copy of Marshal Pascal, call: (800) 826-2222 
In California: (415) 947-1000 


Marshal Pascal is a TM of Marshal Language Systems. Pascal MT + , CP/M-86 and Concurrent DOS are ® of Digital Research, Inc. 
IBM Pascal, PC-DOS are ® of IBM Corp. Turbo Pascal is a ® of Borland International, Inc. Microsoft TM, Microsoft C, MS-DOS and 
Xenix are ® of Microsoft Corp. Mystic Pascal is a ® of Mystic Canyon Software. Intel 8087/80287 is a TM of Intel Corp. UCSD Pascal 
is a TM of Pecan Software Systems. Utah Pascal is a TM of Ellis Computing, Inc. Pascal-2 is a TM of Oregon Software. 
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Listing Twenty-two 
(Listing continued, text begins on page 130. ) 


outc( 0x8d ); /* newlines ef 
outa(.<\ri' |p: 
} 
else /* Replace newline with */ 
eute?¢ *«-}3 /* a space character =f 
if( Isdiv ) /* Adjust diversion height and width */ 
{ /* and spring trap if appropriate wf 


1f( Divwidth < TEXTLEN ) 
Divwidth = TEXTLEN ; 


if({ Divtrap == VERT ) 
do _divtrap(); 


++VERT ; /* increment diversion height */ 


/* Spring any line traps for the current line and 
* then adjust the distance to the next trap. Note 
* that the line number has to be incremented as 
* part of the do linetrap() call or else the trap 
for the current line will be sprung recursively. 


do linetrap( OLINE+t+ ); 
TOTRAP = distance():; 
if( OLINE > PGLEN ) 
if( Stop é& !(PAGE % Stop) ) 
/* Process the -s command line switch */ 
fprintf(stderr,"\nHit any key to continue."); 
getchar(); 


OLINE = 1; /* Adjust line and page # «/ 
++PAGE; 


do linetrap(0); /* Spring top of page trap */ 


TOTRAP = distance(); 


go_up( amt ) 
{ 


/* Called from sp(), in nrprocs.c, to handle negative 
* spacing. Amt is a negative number. 


a/ 
if(-Isdiv. } 

VERT = max( VERT + amt, O ); 
else 


{ 
OLINE = max( OLINE + amt, 1 ); 
TOTRAP = distance(); 

} 


motion( Vs_amt * amt, (CTYPE) ( MODE BIT | VM_BIT )); 


| *------ -- - - rn xf 
do ul( c ) 
CTYPE C3 


{ 
/* Take care of underlining c but don’t actually print 
* c. If Ul_on is defined toggle underline mode at the 
* printer at the appropriate times. If Ul_on is not 
» defined then just print a “_\b". 
* 
/ 


static int amunder = 0 ; 


£f€ Plain’) 
return; 


if( IS _UL(c) ) 
{ 
L£¢ *Ul..on-") 


if( 'amunder ) 


{ 

\ amunder = 1; /* Turn on underlining */ 
ots( Ul_on ); 

} 


} 
else 
ote  *\b"=)> 
} 


else 


if( *Ul_off && amunder ) 
ots( Ul off ); 


amunder = 0; /* Turn off underlining */ 
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do_bold(c) 
CTYPE c; 


/* Same as above but do boldface instead of underline 
a/ 


static int ambold - 0; 


if( Plain ) 
return; 


if( IS_BD(c) ) 
if( *Bd_on ) 
if( !ambold ) 
ambold = 1; 
ots( Bd on ); 


else 


oute( (int) c ); 
outec( *\b*")}: 


else 
if( *Bd_off && ambold ) 
ots( Bd off ); 
ambold = 0; /* Turn off boldface */ 
} 
/* a ee ee a en a ne ee nen eee x / 


do_over{(c) 
CTYPE oc; 


/* Same as above but do overstrike. 
n/ 


static int amos = 0; 


if( Plain ) 
return; 


if({ IS_OS(c) ) 
{ 
if( *Os_on ) 


if( !am_os ) 

{ 
am_os = 1; 
ots( Os_on ); 


else 
ots ("-\b"); 


else 


if( *Os_off && amos ) 
ots( Os off ); 


am_os = 0; /* Turn off overstrike */ 


End Listing Twenty-two 


Listing Twenty-three 


#tinclude <stdio.h> 
#include “nr.h" 


NRTAB.C -- Tab-processing stuff for NR 
(C) 1987, Allen I. Holub, All rights reserved. 


2 
2 
a 
x 
* Tab processing is rather primitive. In particular, it 
* assumes that we're using a monospaced font. 
my 
int width({ c, advance ) 
int c, *advance; 

{ 
/* Return the amount of space taken by the character 
* on the output line. Modifiy “advance” to be the 

* amount of space required to skip past it. 

=F 


switch( c ) 
{ 


case VMOVE: *advance = 2; return 0; 
case HMOVE: *advance = 2; return 0; 
case CH _FONT: *advance = 2; return 0; 
case CH ATTRIB: "advance = 2; return 0; 
case ZWIDTH: *advance = 2; return 0; 
case LITCHAR: "advance = 2; return 1; 
case SOFT_HYPHEN: *advance = 1; return 0; 


} 


*advance = l 


: /* UP_SPACE and default case */ 
return 1; 


(continued on page 112) 
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@ Total Screen Control/Easy to Use 


C-scape is a combination screen generator and library of 
screen I/O functions. Written for C programmers, C-scape 
brings a proven approach to the need for an easy-to-learn 
and use, but truly powerful and flexible screen manage- 
ment tool. 


C-scape’s kernel is your most powerful ally. Without re- 
quiring parameters you'll never use, it allows you to create 
tailored functions with ease and simplicity. Each key is in- 
dividually definable. If you know printf(), you can use 
C-scape. C-scape’s kernel provides a veritable screen 
design and construction toolkit to rewrite our functions or 
to write your own. 


@ Most Powerful Prototyping Available 


C-scape offers a unique approach to prototyping your soft- 
ware. You may use Dan Bricklin’s Demo Program to 
Create, edit, and view your screens (you can even capture 
existing screens from other programs), and then use 
C-scapes’s demo2c utility to convert each screen to code. 


You can design each screen with attributes such as colors, 
menu selections, data entry fields (including type, valida- 
tion, and field naming), masking, and text, and then 
automatically convert the entire screen to code. 


@ Powerful Function Library 


Use C-scape’s functions for Lotus-like, pull-down, or your 
own menu designs, automatic scrolling, pop-up windows 
(number limited only by RAM), logical colors, help, time 
and date, yes/no, tickertape fields, secure and protected 
fields, and many others, to turn your demo into a fully 
functioning and complete program in a fraction of the time 
spent coding screens from scratch. 

C-scape’s extensive library includes just about all the data 
entry and display functions you'll ever need, including 
money functions, fully definable borders, and orthogonal 
field movement (get the latest list by calling for more infor- 
mation). And modifying our functions or writing your own 
is easy. C-scape adjusts automatically for CGA, EGA, 
monochrome, and the Hercules Graphics Card Plus in 
RamFont mode, and optionally writes directly to video 
memory, so it’s flexible and fast. 


Oakland Group, Inc. 


675 Massachusetts Avenue, Cambridge, MA 02139-3309 


@ Bridges to Power 


C-scape includes examples of how to bridge to other 
powerful tools such as c-tree and db__VISTA. You'll be in- 
tegrating demos to dictionaries to file handlers and 
database managers in no time. You can even use C-scape 
to provide the screen design for Al applications, using 
packages that support calls to C. 


—@ Clean, Complete Documentation 


C-scape’s documentation is a clear example of how to write 
for programmers in a hurry. A short introduction uses helpful 
examples to explain the C-scape design. Each function is 
documented separately. An index makes reference easy, and 
a quick-reference card provides a synopsis of each function. 


M@ Source Code Included/Portable/No 
Royalties/No Runtime License 

Providing source code at no additional cost gives you the 
freedom to modify existing functions without raising cost as 
a barrier. The source code includes all the low level 
routines you might need to port C-scape to an unsupported 
machine or compiler. Speaking of barriers, you pay no 
royalties or runtime license fees, either. 


@ Toll Free Support and Bulletin Board 


To make your job even easier, we provide technical sup- 
port (toll free), and access to our 24-hour Bulletin Board. 


@ Easy Prices/Risk-Free Terms 


Try C-scape for 30 days. If you are not satisfied, return it 
for a refund. When you register, we send you source code. 
Order C-scape today, or call toll free for more information. 
See why some very major companies are standardizing on 
C-scape. 

C-scape (Lattice/Microsoft/others) Only $199 
C-scape with Dan Bricklin’s Demo Program $259 
C-scape with DB Demo and db__VISTA (RAIMA) $425 


Please add $3 for first class shipping; Massachusetts orders 


add 5% sales tax. 
CALL NOW! 


800-233-3733 
617-491-7311 


a | 
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Announcing Magic PC — the first breakthrough for database applications developers in over 20 years: 


Now you can develop professional applications 
1000 % faster than your 4GL or DBMS, totally 


free from programming, commands and syntax! 


AKER Corp. MAGIC PC 


13.Order Entry Screen 
Execution Definition 


Description 





A Magic PC program looks as simple as this. To design an application you quickly fill-in menu-driven decision 
tables without having to write a single line of code. For example, just by highlighting the Execute Program 
operation on this screen and also highlighting the Item List program in the Program Menu, you tell Magic 
PC to pop-up the Item List window shown in the adjacent screen, when the end-user hits the Zoom key. 


Who needs another DBMS? 

At last, Magic PC gives you the ultimate applications 
design tool, far ahead of 4GL’s, DBMS and Applica- 
tion Generators. 

Magic PC breaks through the language barrier with 
the revolutionary Un-Language concept: 

NO PROGRAMMING, COMMANDS OR 
SYNTAX! 


Free yourself from your programming language 

Magic PC makes you, the professional, completely 
free from the drudgery of procedural programming. No 
more cryptic commands, syntax or unforgiving 
procedural structures, because Magic PC does all the 
programming automatically. There’s your competitive 
edge. The rest is up to you... 


The Professional Choice 

Already an international success, Magic PC is a profit 
maker and career booster for DP Consultants, System 
Integrators, VARs, MIS professionals, System Analysts, 
Programmer Analysts and Software Engineers. If you 
design PC applications professionally, you can't afford 
not to Un-Language now. 


IBM France: “IBM encourages this introduction and 
can not help but salute such evolution. . ” 


Israeli Air Force: “We were convinced that it was not 
possible to have a design tool powerful enough to im- 
plement real-life applications without a programming 
language. Magic PC changed our mind. . °” 


Jeff Duntemann, PC Tech Journal: “It’s probably 
the best integrated database applications and screen 
generator that I have ever seen. . .very smooth system, 
and smoothness comes at a premium these days. . ” 


The Magic PC Secret 

You’re so much more productive with Magic PC 
because there is absolutely no programming to slow 
you down. You design a Magic PC application by simp- 
ly filling-in the Data Dictionary Tables (Files, Fields, 
Keys) and the Task Description Tables (Operations and 
eprestiss). 

Only 13 design Operations harness the power of 
Magic PC. Operations are specific enough to eliminate 
the need for tiresome syntax, yet elastic enough to pro- 
duce robust custom applications. Use the Operations 
to describe what you want and Magic PC makes it 
happen. It’s that simple. 


Task Definition SNA SER ORR RETR TU ST 
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O 
0] 
1 
2 
3 
4 
ss) 
6 
7 
8 


Write File 
Read File 
Scan File 
User Exit 


No. Description 


Make Task nesting power available with a single 
Execute Task Operation. This powerful instruction 
triggers Magic PC to execute and display additional 
tasks or even external applications through Window 
Zooms. The 3-dimensional effect of Window Zoom- 
ing lets you probe deep into your application through 
nested windows and manipulate the data underneath. 

You describe a Magic PC Task or Program (com- 
posite Tasks) by filling your system analysis flow into 
the Task Description Tables. Choose the participating 
Data View, and Magic PC executes your desired Opera- 
tions. You interface with the Tables by highlighting your 
selections from pop-up menu-driven windows. There's 
nothing to edit except your headings. 

You're not confined to any particular design sequence 
as you are with most procedural languages. You can 
enter and change any Table spontaneously, on the fly, 
as ideas come to mind and Magic PC automatically 
maintains the application integrity. 

A Magic Inference Engine automatically or- 
chestrates your Task Description Tables into a single 
file of internal Knowledge Base Rules for optimum, 
bug-free performance. Knowledge Base Rules are ex- 
ecuted by the Magic Run engine for stand-alone run- 
time operation, or by the Magic Lan engine for 
unrestricted Novell network sharing. You're free to 
design the Knowledge Base without worrying about the 
internal structure. 


Discover fast, 
language-free 
programming 
at no risk 

for only 
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Order No: 999 
Order Date: 99/99/99 


Stock Status 


In Stock: -999,999 
Total Orders: -999,999 
Avail to Sell: -999,999 


Magic PC gives your end-user the power to harness and retrieve data instantly, without any commands or 
syntax because at runtime you already have built-in options to Add, Delete, Modify, Query and get on-the- 
spot ad-hoc information simply by highlighting selections from menus. Dats validation, security and 
error-checking are done automatically for you by Magic PC without programming. 





IS 


Order Entry 


Customer No: 99999 
Address: 


in Ee ie Description | Quantity Unit Price Total Price 


EEE 


-§$9 __999 35 


Order Sum 
Discount 
Sub-Total 


999.99 
999 .99 
,999.99 
,999.99 


Order Total -999,999.99 


Sales Tax 


See for yourself how fast you can program language- 
free applications with our low-cost limited offer. 

You'll get the full Magic PC software unprotected and 
limited to 100 records and 450 page documentation 
complete with a free Order Entry sample application. 
You'll also get our free telephone support for 90 days! 

And your $19.95 will be credited towards the full $695 
Magic PC purchase price. Even if you don’t buy Magic 
PC right away, keep your $19.95 Magic PC Trial as your 
application prototyping tool at this bargain price. 


Our No-Risk Guarantee! 


You have our no-risk 30-day money-back guarantee: 
if you're not completely satisfied for any reason, even 
Magic PC Trial for $19.95, send it back for a refund. 
Order now while supply lasts 


Call this toll free number now with your Visa, 
MasterCard or American Express for immediate 
delivery, or send the Order Coupon below today to Aker. 


1-800-345-MAGIC 
in CA call 714-250-1718 


Ss 
— MasterCard 
aD 





Yes, please rush me: 














CL) Magic PC Trial $, 19:95 
CL] Magic PC $695 .00 
Add shipping $ 5.00 
In CA 6% tax $ 
Prices valid in US only. otal Ss 
Ship to: 
Address: 
City/ST/Zip: 
Phone: 








Aker Corp. 18007 Skypark Circle B2, Irvine, CA 92714 
(714) 250-1718, Elec. Mail Dialcom 41: AKR 001 Telex 4931184 
AKR UI OEM and VAR inquiries are welcome. 


Min. requirements PC DOS 2.0. IBM PC or 100% compatible with SI2K and hard disk. 


©1986 Aker Corp. Printed 1/87 Trademarks: Magic PC, Un-Language, Window Zoom, 
Magic Run. Magic LAN and Magic PC Trial are trademarks of Aker Corp.. IBM PC 
and PC-DOS are trademarks of IBM Corp.. Novell is a trademark of Novell Inc. 





FLOPPY DISK. 
Fills time between coffee breaks 
Makes a hard disk seem fast 


Your computer appears busy 
(even if you aren’t!) 


Wears out moving parts 





...for YOUR demanding tasks. 


SURPRISE! Neither is memory mapped, so they don’t 
affect your precious Main Memory. Both retain data indefi- 
nitely - even with the computer turned off. 


THE SEMIDISK SOLUTION. You could invest in a 
series of “upgrades” that turn out to be expensive band-aids 
without solving your real problem. Even those “Ac- 
celerator” and “Turbo” boards do little to speed up disk- 
bound computers. If your applications spend too much time 
reading and writing to disk (and whose don’t?), you won’t 
want to settle for anything less than a SemiDisk disk 
emulator. The SemiDisk comes in 512K and 2Mb capacity. 
More boards may be added to make up to an 8 Megabyte 
SemiDrive! 


SPEED THAT’S COMPATIBLE. PC, XT or AT, if you 
need speed, the SemiDisk has it. How fast? Recent ben- 
chmarks show the SemiDisk is from 2 to 5 times faster than 
hard disks, and from 25% faster (writing) to several times 
faster (random reads) than VDISK and other RAMdisk 
software that gobble up your main memory. 

MEMORY THAT’S STORAGE. Using our small exter- 
nal power supply, with battery backup, your data remains 
intact through your longest vacation or even a seven-hour 
power failure! 














SEMIDISK Disk Emulator. 
Gets that job done NOW 
Makes a hard disk seem slow 


Maximizes your productivity 
with anything from databases 
to compilers 

Totally silent operation 


CELEBRATE WITH US! Now, SemiDisk celebrates its 
fifth birthday with a special offer for IBM-PC owners. Buy 
a SemiDisk now and we’ll include an 8 MHz V-20 micro- 
processor (replaces the 8088) to make your new SemiDisk 
run even faster. Don’t need the V-20? We’ll take $20 off 
the price of your Battery Backup Unit! 


512K 2Mbyte 
IBM, PC, XT, AT $495 $ 795 
Epson QX-10 $495 $ 995 
S-100 SemiDisk II $795 $1295 
S-100 SemiDisk I $299 none--------- 
TRS-80 II, 12, 16 $495 $ 995 
Battery Backup $130 $ 130 


Someday you’ll get a SemiDisk. 
Until then, you’ll just have to...wait. 


SemiDisk 


SemiDisk Systems, Inc., 11080 S.W. Allen Blvd., Beaverton, Oregon 97005 (503) 626-3104 


Circle no. 85 on reader service card. 





Listing Twenty-three 
(Listing continued, text begins on page 130. ) 


dist _to tab( col ) 
{ 
/* Col is the current column position. Return the 
* distance the the next tab set in the Tabstop array. 
* That is, the next tab will be at Tabstop[{col + rval). 
*" A tab at the current column position is ignored. 
*7 


register int ocol; 


for({ ocol = colt+; !Tabstop[col] 6& col < LINLEN; col++) 


return (col < LINLEN) 2? (col - ocol) : O; 


field _width( p ) 
UCHAR *p; 
{ 
/* Return the distance beween p and either end of line 
*" or a tab character (\t) or a leader character (SOH). 
as 


register int count = 0; 
int advance; 


if¢ §*p+et ) 
return QO; 


while( *p 6& ‘*p t= *\t* 6&6 *p != SOH ) 
{ 

count += width(*p, éadvance); 

Pp += advance; 


} 


return count ; 


dotab( 
UCHAR *str; 
{ 
/* Expand the tab (“*I) and leader (“A - SOH) 
* characters in str to the proper number of tab or 


* leader characters. 
: 






Step Into Artificial Intelligence 








Reccive four information packed issues for only $19.95. 


PC AI will be bringing you the latest AI technology right 


to your doorstep. Canada: $29. All Overseas: $45. 


Don't miss out! Call (602)439-3253 


PC AI 
PC AI -- For all personal computer 


Suite 119 


uSCIS. Phoenix, AZ 85023 


Subscribe Today! 


Circle no. 386 on reader service card. 


112 





With A One Year Subscription To 


3310 West Bell Rd. 


up 


int 
int 
int 
UCHAR 
UCHAR 
int 


Three types of tabs are recognized. (L)eft justifying 
tabs will print the character following the \t at the 
tabstop. Right and Centering tabs both use a field 
width (ie. the number of character following the \t 


to, but not including, a following \t or end of 


line). A centering tab will cause this “field” to be 
centered on the tabstop. A right adjusting tab will 
cause the rightmost character in the field to rest 
immediately to the left of the tabstop. 


Ww; /* Current field width 

d; /* Distance to next tabstop 
Eel. /* Current output column 

*p; /* Current character 

*startstr: /* Original beginning of string 
advance; /* amount to advance past char 


static UCHAR buf{ MAXSTR }; 


col 


= 1 3 


Stare scr’ = Str: 


/* Copy str into buf with strncpy() and then copy it 
* back expanding tabs an leaders. 


“y 


strncpy(buf, str, MAXSTR); 


Lor{ » = buf: *p' 3) 


{ 


if( ‘!(*p =<— "\t' || *p == SOH) ) 


{ 


w 


if( str-startstr >= MAXSTR-1 ) /* out of space */ 
reak; 


col += width(*p, éadvance); 


while( --advance >= 0 ) 
*SUrtt = 2p > 


continue; 


'(d = dist_to_tab(col)) ) 
break; 


= field width( p ); 


Convert d to the number of spaces to print 

to get to the specified tab stop. If there 
are no characters between the current 

\t and the next \t then just move to the next 
tab. 





8031 


FORTH DEVELOPMENT ENVIRONMENT 


Take advantage of Bryte’s tools to make your job easier: 


Bryte’s development environment uses BRYTE-FORTH 
on the actual production hardware during product 
development. No emulators, no changes, no surprises. 


Optional PC-based cross-development tools use DOS 
files as microcontroller mass storage. These files 
can be used to generate compact EPROM images, de- 
tailed listings, and cross-references. 


Why not start developing the Bryte way today? 


BRYTE-FORTH 8831 EPROM 

(includes 138 page User’s Manual) 
Utility disk(s) 
Cross-compiler/Cross-assembler 
8631 unlimitted quan. license 


100.00 
65 .00* 
235.00* 
1000.00* 


Includes complete source code 


ioryte computers, inc. 


P.O. Box 46 
Augusta, ME 04330-0046 


207/547-3218 
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enqueued until an entire line is in the 
queue, the the queue'’s contents are printed. 
Last queued: Most recently enqueued character. 
Owidth: Space occupied on the output line by the 
characters now in the queue, in units 
(modified by putq() and used in several 
places). 


switch( Tabstop[{ col +d] ) 

{ 

case "R's od == w ; break ; 
case 'C': d-=w/2 ; break ; 
} 


while( --d >= 0 ) ; 
{ 
if( str-startstr >= MAXSTR ) 
goto exit; tdefine QSIZE (MAXSTR * 2) 


*str++ = ( *p == '\t' ? Tab : Leader ); static CTYPE blankline = NULL; 
colt+t; 
static QUEUE *Input_queue ; 
static CTYPE Last queued 
static Owidth - 0; 


text( str ) 


UCHAR *str; 


: End Listing Twenty-three { 


/*Highest-level text processing routine, called 


Listing Twenty-four yer ere 


#include <stdio.h> CTYPE line [MAXSTR]; 
#include mae ila static int been_called = 0; 
finclude “nr.h' 


tinclude “nrmap.h" D( printf (“text(): working on <ts>\n", str); ) 
#include “nrtlen.h" 
if( Inhibit ) /* Input has been inhibited by an * 
return; /* .if or .ie command a/ 
NRTEXT.C: Text processing portion of nr 


if( !been called ) 

Copyright {c) 1985 Allen I. Holub. All rights reserved. { = 
* If this is the first time we've been called, 
* spring the top of page macro for the first page. 
* (all other top of page macros are sprung 

typedef CTYPE QUEUE; /* Dummy typedef for queue routines */ * {mediately after the bottom line of the previous 


* page is printed. 
a i 


been called = 1; 
extern QUEUE *makequeue() ; do lInetrap( 0 ):; 


extern CTYPE *show next() ; TOTRAP = distance(); 
eatern void map(CTYPE*, char*); } 


if( TLEN >= MAXSTR ) 
Globals: { 


" err("Output line too long\n"); 
* blankline: Used in outbuf() calls when we need to print 
* a blank line. ‘else if( !*str ) 


Input_queue: Input queue used for line filling. Words are (continued on next page) 





Ever Program On A Silver Platter?? 


How much would you expect to pay for a 32 bit MC 68000 computer that’s a mainframe condensed down into a keyboard? How 
about $177.00!!?? If it makes you feel any better simply add a zero to the price when you order! But that’s actually our price!!! 
The most powerful computer money can ever buy is now the most inexpensive computer money can buy!!! So don’t buy the 
name! Buy the power!! The power is not in the name! 


If you had the opportunity to work amongst Machine Code ROM Designers, VAX & UNIX wizards in a research 
laboratory, designing an MC 68000 based computer that’s 2nd to none. . . 





What would you come up with?? And what would you call it?? 


Well It’s Already Been Done!! 
They Called It The QL For The Quantum Leap It Is!! 
Absolutely a Quantum Leap beyond what you know & use - and it’s truly like Programming on a Silver Platter!! 


The QL Desktop Minicomputer: Designed by SRL Labs, manufactured by Samsung. A total Quantum Leap beyond all the rest! 
Virtual Memory, Multitasking Job Control, Multiuser Networking, Drives in Cache Memory, with Automatic Directories & File 
Names up to 36 characters! Everything is built into ROM! QDOS, Networking, 32 Bit SuperBasic: a totally concurrent non- 
destructive environment. Unlimited quantities & lengths of: Variables, Program Lines, CONsoles & Buffers. Dynamic RAM Disk- 
ing! Even a System Variables Brain Page Screen! Built-in DCE & DTE Serial Ports. 


Imagine a 32 bit SuperBasic structured like Turbo Pascal, always there with QDOS in a UNIX-like multitasking job controlled en- 


vironment with access to 32768 fully channeled windows, devices & files by EACH job! 3 Major Compilers exist for SuperBasic 
source alone! TURBO, SUPERCHARGE, LIBERATOR. Also runs ‘‘C’’, Pro Pascal, Pro Fortran 77, LISP, BCPL, 68000 


Assemblers, JCL, APL, Forth-83, 65C02 or 8088 Cross Assembly. Generate native 68000 code. Compile SuperBasic source code or 
ANY other language and then multitask and control it in QDOS or even with SuperBasic in the Interpretor! The list of ALL the 
Superior Features would fill this entire journal! 


Assembled QL comes WITH Integrated WP, SS, DB & Presentation Graphics Program Package by PSION! Also available in a 
built, final assembly KIT Form for another $25.00 LESS!!! PLUS: FREEWARE Demos & Utilities with all purchases! [7 At 


C ll- 201 328 8 8 4 6 Technical Info & Assistance - - head 
a * ve Our Phones are Manned 24 Hours a Day ([Reyaiee 


QLine BBS: 328-2919 Lot Purchases Available. We Direct Distribute. 


Quantum Computing, Box 1280, Dover, NJ 07801 


Circle no. 144 on reader service card. 
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Listing Twenty-four 


(Listing continued, text begins on page 130. ) 


/* A blank line always causes a break use ‘sp 1 if 
* you want blank lines without a buffer flush. 
Note that outbuf won't print the blank line 
itself unless spacing is enabled. 


“/ 


brk(); /* Break a/ 


outbuf( éblankline, 0 ); /* print the blank line */ 


else 
{ 
map( line, str ) ; 


if( FILL ) 


dofill( line ):; 
else 


outbuf( line, 0 ); 


ries Itrap > 0 ) /* Input line trap */ 


if( --Itrap == 0 ) 
expand _macro( Itrap_name ); 


void i \t_text() 


/* D one-time initializations for this module. This 


» xr atine is called from main() when the program boots. 


a 
if( !(Input_queve = makequeue( QSIZE, sizeof(CTYPE))) ) 


err("Not enough memory for fill buffer\n"); 
exit(1); 


} 


/ * a ee ST ee Oe ee 2 es 2 2 2 a a ee ee a 
* Everything above this point works on char strings, 
* everything below this point works on CTYPE strings. See 
* nrmap.c for the mapping routine. 


«: 


static int first _white() 
{ 
/* Return true if the first character in the queue 
* (the one to come out next) is a space. 
ay 


‘ CTYPE next = *show_next(Input_queue) ; 


return( sp _used(Input_ queue) 6&& WHITE(next) ); 


static int putq (cp) 
CTYPE ‘cp; 
{ 
Last_queued = *cp & Oxff ; 


Owidth += CWIDTH( *cp ); 


if( !enqueve(cp , Input_queue) ) 

{ 
err( "Fill buffer full\n" ); 
brk(); 
return 0; 

} 


return 1; 


CTYPE *saveq() 
{ 
/* Save the current queue contents and flush the queue. 
* Return a pointer which, when passed to a subsequent 
* restorq() call, will restore the queue to its 
* previous state. 
Pk 


CTYPE oj ast oe 


p = (CTYPE *) malloc( (sp_used(Input_queue) +1) 
* sizeof (CTYPE)); 


rval = p; 


ae YS 
err("Not enough memory to save fill buffer\n"); 
else 
{ 
while( dequeue(p, Input queue) ) 
++p; oe 
=D = 0; 
Owidth = 0; 
} 
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return rval; 


restorq( qp ) 
CTYPE ‘*qp; 
{ 
/* Restore the queue to the condition it was in before 
* a previous saveg. p is a pointer returned from a 


* saveq() call. The queve is flushed before it is 
* reloaded from p. 


as 
register CTYPE *p; 
brk(); /* Flush current queue s/ 
if( qp ) 
for( p = 4p ) ®t. putgel- pre -r. } 
free( qp ); 
} 
/* eee wee ee oe owen woe ee ww ee eee we oe ow eee owe we @ ww oe ww ow ww ow oe owe = x/ 
prblank ( n 
int n; 


{ 
/* Flush the buffer and print n blank lines. This 
* routine handles the .sp command. 


* If spacing is inhibited (ie .ns was given) do 
* nothing. The nospace test is done in outbuf. 
a/ 


while( --n >= 0 ) 
outbuf( &blankline, 0 ); 


add_sep( line ) 
CTYPE *line; 


/* If there is something in the queue and that something 
* doesn't start with white space then enqueue an extra 
* space character as a word seperator. 

“7 


CTYPE G; 


if( sp_used(Input_queue) && !WHITE(Last queued) ) 
{ 

Gi «70 -CTYPE(:* f° )3 

putq( éc ); 


dofill{ line ) 
CTYPE sline ; 
{ 
/* Collect words until we have filled an entire line 
* and then print it. 


w/ 

int pad; /* Amount of padding needed my 

int tail; /* padding needed on current line */ 

int nchars; /* # of chars to print out a/ 

int prevwidth; /* amount of space used by nchars */ 

CTYPE *word: /* beginning of current word. / 

CTYPE ‘*white; /* pointer to beginning of white */ 
/* space preceedeing current word */ 

CTYPE ‘*p: /* pointer into hyphenated word. */ 

CTYPE *chop_here; 

int extra; 


int addhyphen; 


D( outints("dofill", line) ) 
D( printf£(">\ndofill: prevwidth=%d, Owidth=%d\n", ) 
D( prevwidth,Owidth) ) 


if( Num_center ) 


/* If we're doing centered lines, output the current 
* buffer without filling. 
oS 


outbuf( line, 0 ); 
return 0; 
} 


while( *line ) 
{ 
prevwidth = Owidth ; 


pad = U_TLEN - prevwidth; 
nchars = sp_used( Input_queue ); 
white - line ; 


/* Insert a word into the queue. Add leading blanks 
* first and then the word itself. Putq() increments 
* Owidth as necessary to reflect the amount of 
* space occupied on the output line by the 
* characters in the queue. 

4 


(continued on page 116) 
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C spoken here... Pascal spoken here... 


" ™ “ ™ 
High C Professional Pascal 
Do you want to use a C compiler that Do you want to use a Pascal compiler that 
e was chosen by Ashton-Tate for dBASE Ili® Plus, and e was chosen by Lifetree Software, Inc., for implementing 
CAD Leader AutoDesk for AUTOCAD and AUTOSKETCH Volkswriter Deluxe™ 
‘with a twenty percent code savings over Lattice C.’’ e serves as a systems and applications language at 
¢ was well rated in Computer Language, Feb. 86: CAD/CAM giant Daisy Systems Corporation 
“Then there is High C, the most powerful compiler of all...’’ © was well rated in Computer Language, May 86: ‘‘The 
and Dr. Dobbs Journal, August 86 clear choice for large-scale programming projects...’’; 
e “would have saved me three weeks of porting time had | and PC Tech Journal, July 86: ‘‘for team programming 
had High C instead of Microsoft’s new C’’ or for very large projects...stands absolutely alone.”’ 
Mike LeBlanc, compiler developer, Sky Computers pg. 126 “documentation is certainly the best...a model of 
e “is the only C compiler for the IBM PC capable of com- technical clarity.” pg. 112. 
piling NYU’s Ada/Ed compiler’ e is the ‘howitzer’ of Pascals and ‘‘could well be the most 
Dave Shields, research scientist, New York Univ. powerful Pascal compiler ever implemented on a 
¢ has a complete run-time library microcomputer’ PC Magazine, Oct. 29, 1985, p. 144 
e has structure assignment, enum, void... e has 8-, 16-, and 32-bit integers; sets up to 64K bits 
e supports nested functions as in Pascal e has varying-strings of up to 64K characters 
e supports pcc and full K&R C plus some latest, nifty ex- e has a full-fledged C macro preprocessor 
tensions from the new ANSI-proposed C standard e¢ has many run-time library additions: UNIX™-like I/O, multi- 
e “is the highest quality C compiler for large-scale software ple heaps, interrupts,.. . 
development.”’ Randy Nielsen, Ansa (Paradox) e has all the bit-pushing operators of C 
e “‘saved 15% of code over five large modules of MultiMate * has many more extensions, getting you half way to Ada® 
relative to Lattice C”’ for a non-Ada price 


David Beauchesne, Multimate International 





Power Tools at Power Users 


Each compiler ¢ generates superb code, with optimizations such as common-subexpression elimination and cross-jumping ¢ sports 
no less than five memory models for the 8086 (Small, Compact, Medium, Big, and Large) « supports a unique implementation of register 
variables ¢ supports the 8087/80287 in native mode, or emulates ¢ supplies three floating-point formats « generates special instructions 
for the 80186/286 generates code that runs in 80286 protected mode « gives you hundreds of error and warning messages, help- 
ing you find those subtle bugs before you need a debugger’s help ¢ lets you overlay data as well as code (when used with PLINK86), 
for substantial space savings « lets you write interrupt routines directly in high-level language ¢ lets you get ‘‘close to the machine’”’ 
with built-in move/scan/compare operations ¢ is supported by equivalent resident and cross compilers for the 80286 (UNIX V.2, Xenix, 
Concurrent DOS 286), 80386 (DOS, UNIX V.3), 68010/20/68881 (UNIX V & 4.2, GEM-DOS™), 32032 (UNIX 4.2), VAX (UNIX 4.2, 
VMS), RT PC, IBM 370,... © contains a multi-modular cross-referencer ¢ produces ROM-able code for embedded applications 
¢ can talk to those other languages by those other vendors ¢ gives you 64K run-time stack space that can be shared with 
the heap ¢ is endowed with an amazing number of pragmas (compiler controls) for customization to your application « has 
a compiler start-up profile * supports direct access to MS-DOS; library supports DOS 3.x file-sharing ¢ generates symbolic debugger 
information for use with all known MS-DOS debuggers ¢ allows exec-ing subprocesses ¢ was designed for professional software 
developers, not hobbyists * comes with great technical support by a company that specializes in compilers * comes with exten- 
sive typeset documentation ¢ and more... call or write for your information packet today... 


Not recommended for casual use, but for applications needing industrial-strength tools, contact 


Abroad: 

ABC Software, The Netherlands 
Microsoftware, Tokyo 

Grey Matter, United Kingdom 
Buchdata, Frankfurt 








INCORPORATED 


903 Pacific Avenue, Suite 201, Santa Cruz, CA 95060-4429 
(408) 429-6382 (429-META), TELEX: 493-0879 






Professional Tools Since 1979 


High C V1.3: $495 —on any MS/PC-DOS system— Professional Pascal V2.6: $595 
OEMs: Contact us about porting our professional compilers to your systems. 
TWS: Professional Compiler Developers and competitors, ask about our Translator Writing 


System compiler toolbox; see the review in Computer Language, December, 1985. 
DOS Helper™: Powerful UNIX-like utilities to enhance MS-DOS, for $49.95—included free with 
MetaWare compilers: FIND, TAIL, MV, LS, CAT, UNIQ, FGREP, and WC. 
C Validation Suite: Used by some of our competitors and many others. $2,000/Plant Site 


e MetaWare, High C, Professional Pascal, and DOS Helper are trademarks of MetaWare Incorporated ¢ Other trademarks and their owners are: UNIX—AT&T, dBASE 
\Ii—Ashton-Tate, Volkswriter Deluxe—Lifetree Software, GEM-DOS—Digital Research, Ada-DoD. © 1986 MetaWare Incorporated. 
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Listing Twenty-four 
(Listing continued, text begins on page 130.) 


if( CHAR(*line) !=' ' ) 


/* this is the first word */ 
add_sep( line ); 


/* of an input line af 


else while( CHAR(*line) == ' ' ) 
putq(linet+); 


chop here = word = line; 


while(*line && CHAR(*line) != ' ‘) 
putq(line+t+); , 


/* If the new word put more characters into the 
* queue than will fit on the line (U TLEN) then 
* output everything up to (but not including) 

* the most recently added word. If hyphenation 
— enabled, output a prefix too. 
a 


if( Owidth >= U_TLEN ) 
{ 
addhyphen = 0; 


if( prevwidth > (LINLEN * SPACE SIZE) ) 
{ 


err("Line overflow, truncating\n"); 
nchars = LINLEN; 


} 
else if( Hyphenate && *word 

&& pad > (3*SPACE_ SIZE) ) 
{ 


/* pad == difference between line width 
* and width of line up to the beginning of 
* the previous word. 


“7 
hyphen( word, line-1 ); 


p = word; 
prevwidth += CWIDTH( TO _CTYPE('-') ); 


for(; p < line &6& prevwidth < U_TLEN; pt+ ) 
{ 
prevwidth += CWIDTH(*p) ; 


if ( HAS_HYPHEN(*p) ) 

{ 
chop here = p + 1; 
addhyphen = 1; 


} 
else if( CHAR(*p) == ‘-' ) 
{ 
chop here = p + 2; 
addhyphen = 0 ; 


} 


nchars += (chop here - word); 
} 


outqueue( nchars, addhyphen ); 


/* Process a line break. If there's anything in the 
buffer, flush it out. If the adjustment mode is BOTH 
then adjustment is turned off when the line is 
flushed (so that the last line of a paragraph looks 
correct. This routine assumes that the queue always 
has less than one output lines worth of text in it. 

/ 


» ee he 8 8 


register int oadj; 


D( printf(“Doing break\n"); ) 
oadj = Adjusting; 


if( Adjmode -=- BOTH ) 
Adjusting = 0; 


outqueue( sp used(Input_queue), 0 ); 


Adjusting = oadj ; 


outqueue( numchars, addhyphen ) 
int numchars; /* # of chars. to dequeue */ 
{ 
/* Output numchars characters from the input queue, 

* using outbuf(). If “addhyphen" is true then the a 


* hyphen is printed at the end of the line. 
wf 


register CTYPE * DF 
static . CTYPE buf(MAXSTR] ; 
CIY2E. ochar ; 


Diprintf("“outqueue: putting %d characters\n",numchars) ); 


if( numchars <= 0 ) 
return; 
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p = buf; 


while( --numchars >= 0 && dequeue (éochar, Input _queue) ) 
{ 

Owidth -= CWIDTH( ochar ); 

*pt+ = ochar; 


} 


/* Delete trailing white space from the output buffer 
* and leading white space from the queue. 
oe 


while( WHITE(*p) ) 
if( --p < buf ) 
break; 
*ttp =. * VO; 


while( first _white() && dequeue(éochar, Input_queue) ) 
--Owidth ; 


outbuf( buf, addhyphen ); /* Output the line */ 


End Listing Twenty-four 


Listing Twenty-five 


‘ Makefile for Lattice lmk to manufacture nr using 
¢ the Microsoft C compiler, version 4.0 
¢ 


CV_CSWITCH = /24 
CV_LINKSW = /CO /M 


CSWITCH = 
LINKSW - /NOI /STACK:4096 


OBJ1 = nr.obj nremd.obj nreg.obj nrexcept.obj nrglbls.ob}j 
OBJ2 = nrhyphen.obj nrinp.obj nrmac.obj nrmap.obj nrmsc.ob}4 
OBJ3 = nrout.obj nrprocs.ob} nrtab.obj nrtext.obj 


@ ------------------ Oo ee a eee ent ew nana ens ceewneeeneees= 

.¢.0bj: 
cc -G $(CV_CSWITCH) $(CSWITCH) $*.c >>err 
Bm a a nn + 
nr.exe: $(OBJ1) $(OBJ2) $(OBJ3) 
link $(CV_LINKSW) $(LIMKSW) <@< 

$(OBJ1) + 
$(OBJ2) + 
$ (OBJ3) 
nr 
ne 

* \lib\tools.iib 
< 
final: $(OBJ1) $(OBJ2) $(OBJ3) 

link $(LINKSW) <@< 

$(OBJ1) + 
$(OBJ2) + 
$(OBJ3) + 
nr 
nr 
\lip\tools.lib 
< 
4 eee oem we ww wow ww www wm ow ow wo wm ww www ee we www ww www ow www ew ww ww ow ee oe = 
nr.obj: nr.c nr.h 
nromd.obj: nremd.c nr.h 
nreg.ob}: nreg.c nr.nh 
nrglbls.obj: nrglibls.c nr.h 
nrhyphen.obj: nrhyphen.c nr.h Nrmap.h 
nrinp.obj: nrinp.c nr.h 
nrmac.obj: nrmac.c nr.h 
nrmap.ob};: nrmap.c nr.h nrmap.h 
nrmsc.ob}: nmsc.c nr.h 
nrout.obj: nrout.c nr.h nrmap.h  nortlen.h 
nrprocs.obj: Nrprocs.c nr.h 
nrtab.obj: Nrtab.c nr.h 
nrtext.obj: nrtext.c nr.h nrmap.h nrtlen.h 
nrexcept .obj: Nrexcept.c Dra nrmap.h 


End Listings 
(Listing 26 will be in next issue. ) 
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MICROWAY MEANS 8087 PERFORMANCE 


FastCACHE-286" 


Runs the 80286 at 8.5 or 11 MHz and the 
80287 at 5, 6 or 11 MHz Includes 8 
kbytes of 55ns CACHE Works with more 
PCs than any other accelerator, including 
Leading Edge Model D, Compaaq, and 
Turbo motherboards. Includes 8088 
Reboot Switch, DCache and Diagno- 


DATA ACQUISITION and 
REAL TIME TOOLS 
DAL” - “Data Acquisition Language.” 


Unkelscope” - A real time data acquis? 
tion, control and process software pkg. 


87FFT and 87FFT-2 
TransView Menu driven FFT Spectrum/ 
transfer analyzer.................... $250 


RTOS - REAL TIME OPERATING SYSTEM 
A multi-user, multi-tasking real time oper- 
ating system. Includes a configured ver- 
sion of Intel's IRMX-86, LINK-86, LOC-86, 
LIB-86, OH-86 and the MicroWay 
87DEBUG. Runs on the IBM-PC, XT, PC- 
Ar ond GOMPAQ) oe $600 
INTEL COMPILERS Available for RTOS 

FORTRAN-86, PASCAL-86, PL/M-86. 


A2D-160" 


The Fastest 12 bit 
A/D Converter 


$1295 


160,000 Samples per second 

Pseudo Random Noise Generator/DAC 
Optional signal conditioners 

AFM-50 Programmable Low Pass 

Filter Module..................... $225 


CALL (617) 746-7341 FOR OUR COMPLETE CATALOG 


Tore, aot Om =e) GY AS) 


Kingston, Mass. 


02364 USA 
(WAR LU ELS 










LOTUS/INTEL EMS 
SPECIFICATION BOARDS 


MegaPage’ The only EMS board which 
comes populated with two megabytes of 
cool-running, low power drain CMOS 
RAM installed Includes RAM disk, print 
spooler, disk cache and EMS drivers. For 
the IBM PC, XT and compatibles...$549 


MegaPage with OK............... $149 


MegaPage AT/ECC™ EMS card’for the 
PC AT and compatibles includes Error 
Correction Circuitry. With ECC, 11 RAM 
chips cover 256K so the user never err 
counters RAM errors. Sold populated with 
1 megabyte CMOS... . $699 or with 3 
megabytes CMOS cool running low 
power drain RAM. . . $1295. Optional 
serial/parallel daughterboard....... 


287 Turbo runs the 80287 
| at 10 or 12 MHz in the IBM 
_ PCAT, compatibles and the 
| newCompag 386 with 100% 
| software compatibility. 








8087 SOFTWARE 


IBM BASIC COMPILER........... $465 
MICROSOFT QUICK BASIC ....... $79 
87BASIC COMPILER PATCH..... $150 
IBM MACRO ASSEMBLER....... $155 
MS MACRO ASSEMBLER......... soo 
87MACRO/DEBUG............... $200 
MICROSOFT FORTRAN.......... $209 
RM FORTRAN..................- $399 
LAHEY FORTRAN F77L......... $477 
ied OF EAP TIGE G wicic ss oye ccaiees CALL 
STSC APL*%® PLUS/PC............ $450 
STSC STATGRAPHICS........... $675 
So SO ee, i ee ea $675 
87SFL Scientific Functions....... $250 
PHOENIX PRODUCTS........... CALL 
FASTBREAK for 1-2-3 V.1A........ $79 


The World Leader 
in 8087 Support! 


Circle no. 300 on reader service card. 





























NUMBER 
SMASHER/ECM" 


Triples the speed of your 
PC, XT or compatible! 


From 


$599 































12 MHz 
Accelerator 
Plus 
A Megabyte 
for DOS 


PC Magazine “Editor’s Choice” 
































8087 UPGRADES 


All MicroWay 8087s include a one year 
warranty, complete MicroWay Test Pro- 
gram and installation instructions. 


8087 5 MHz................... $114 
For the IBM PC, XT and compatibles 


8087-2 8 MHz................ $149 
For Wang, AT&T, DeskPro, NEC, Leading Edge 


80287-3 5 MHz.............. $179 
For the IBM PC AT and 286 compatibles 


80287-6 6 MHz............. $229 










For 8 MHz AT compatibles 

80287-8 8 MHz............ $259 
For the 8 MHz 80286 accelerator cards 
80287-1010 MHz... $395 
For the Compaq 386 


Call for prices on V20, V30, 
64K, 128K and 256K RAM 


287 TURBO-PLUS™ 
Speeds up your AT 
Adjustable 80286 Clock 6-12 MHz 
10 MHz 80287 Clock 
Plus Full Hardware Reset......... $149 
Optional 80286-10 : 


287TURBO-PLUS 
With 80287 10 MHz.................00. 
WNT Ee ee WAPAZ. 5 os ccs San waewen nes $629 








MicroWay Europe 

32 High Street 

Glare fi colam Ol elolanm Mat-laal-t-5 
Surrey England KT1 1HL 
Telephone: 01-541-5466 











Listing One (Text begins on page 140.) 


( Elemental tools Ham 10:31 12/13/86 ) 


-CUR 14 0 SET=-CURSOR ; ( no cursor ) 
+CUR 6 7 SET-CURSOR ; ( normal cursor ) 


: BACK (n - ) 0 2?2DO0 8 EMIT LOOP ; ( backspace word ) 


0 CONSTANT NEW ( to collect new digits ) 
-1 CONSTANT OLD ( to provide existing number to routine ) 


- ) 1 SWAP +! ; ( increments variable ) 
- ) =-1 SWAP +! ; ( decrements variable ) 


3 Bs? ft now hi 8 ( T if backspace pressed ) 
OF? i oes Bes} Se} ( T if carriage return pressed ) 


VARIABLE OK-NEG ( T allows for entry of - ; F rejects - ) 
VARIABLE SOUND ( T if using sound ) 


BELL ( - ) SOUND @ IF 440 8 BEEP ( short beep ) THEN ; 


CREATE #PAD 15 ALLOT ( work area ) 


: #P! (cn- ) #PAD + C! 3 ( stores character c at offset n ) 
CREATE #VAR 14 ALLOT ( holds various values ) 


#VAR CONSTANT #DEC 


no. of fractional digits ALLOWED 
#VAR 2+ CONSTANT #dec 


no. of fractional digits ENTERED 


( ) 

( ) 
#VAR 4 + CONSTANT #WHOLE ( no. of whole digits entered ) 
#VAR 6 + CONSTANT #HIT ( no. of keystrokes ) 
#VAR 8 + CONSTANT NEG~ ( T if number is negative ) 
#VAR 10 + CONSTANT dec~ ( T if decimal point entered ) 
#VAR 12 + CONSTANT DIGCNT ( counts no. of digits for old nos.) 


; PLACES (n- ) #DEC ! ; ( sets # of decimal places allowed ) 
#init #dec 12 ERASE ( don't erase #DEC ) #PAD 15 ERASE ; 
"HIT/NEG #HIT 4 ERASE ; ( resets no. hit and negative flag ) 
NEG? ( - f ) NEG~ @; ( T if number is negative ) 


: dec? ( = £:) »dec~ €.4. 4-7 Jf dec: point ‘entered ) 


( Get and edit keystroke Ham 10:33 12/13/86 ) 


CAPITALIZE (.c - C ) DUP 96 > OVER 123 < AND IF BL — THEN ; 


: FIXUP ( c-c) DUP ASCII B = OVER BL = OR IF DROP ASCII C THEN 
( convert B and space bar to C := clear number entry ) 
( L := 1 ) DUP ASCII L = IF DROP ASCII 1 THEN 
( O := 0 ) DUP ASCII O = IF DROP ASCII 0 THEN ; 


#2 (mn - f£ ) DUP ASCII / > SWAP ASCII : < AND; ( T if digit) 


BAD? (n- f ) DUP #2 OK-NEG @ IF OVER ASCII - = OR THEN 
#DEC @ IF OVER ASCII .. = OR THEN 
OVER ASCII C = OR OVER BS? OR SWAP Cr? OR NOT ; 


GET# ( - n) BEGIN KEY CAPITALIZE FIXUP DUP BAD? 
WHILE DROP BELL REPEAT ; 


{ Collection box Ham 10:34 12/13/86 ) 
#,S ( #w - #, ) 3 /MOD SWAP O= + O MAX ; 

( takes # of whole-number digits, leaves # of commas required) 
( Warning: Assumes 83-Std flag = -l1; negate flag if 79 Std ) 


FULLCNT (n- n' ) #DEC @ IF 1+ THEN OK-NEG @ IF 1+ THEN ; 
( adds to char cnt the decimal point and minus sign if any ) 


BOXSIZE (n- m) DUP ( # of digits ) #DEC @ - ( #whole digts) 
DUP 1 < ( T if no whole digits ) NEGATE ( 83-Std flag ) >R 
#,S ( # of commas ) R> ++ 2+ ( space at either end ) 
FULLCNT ; ( leaves number of character in box ) 


BOx ( n - ) BOXSIZE SPACES ; 
( prints inverse spaces to define field for number entry) 


( Sign/decimal Ham 10:34 12/13/86 ) 
: -. ( displays - or . or both when no digits yet entered ) 
NEG? dec? AND IF 3 BACK ." -. ™ 
ELSE. NEG2?-4F -2. BACK >."-=. ™ 
ELSE dec? .iF.2 BACK .“ . * 
THEN THEN THEN ; 


( Count digits; show number Ham 10:35 12/13/86 ) 
2, (d-).,.%. : ¢ store double into dictionary ) 


CREATE NINES *-S. 92,99. 2; < 999.2, 9999.2, 99999. ‘2, 
999999. 2, 9999999. 2, 99999999. 2, 999999999. 2, 


#OFDIGITS ( d - # ) DABS 1 DIGCNT ! 


BEGIN 2DUP DIGCNT @ 1- 4 * NINES + 2@ D> 
WHILE DIGCNT INCR REPEAT 2DROP DIGCNT @ ; 
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: PUT# ( - adr cnt ) ( prepares number for display ) 
0. #PAD 1- CONVERT DROP 2DUP #OFDIGITS >R 
<# dec? IF #dec @ 0 ?DO # LOOP ASCII . HOLD THEN 
R> #dec @ - #,S 0 ?D0 # # # ASCII , HOLD LOOP 
#S NEG? SIGN #> ; 


( Display the number nicely Ham 19:39 12/04/86 ) 
: DISPLAY# ( n- n ) DUP ( get another copy of max # of digits ) 
BOXSIZE DUP BACK 
( back up to beginning of entry field: top of stack is ) 
( size of box, which is greater than # of digits ) 
#HIT @ 
IF 1- ( space at end ) PUT# ROT OVER - SPACES TYPE SPACE 
ELSE SPACES ( new box ) -. THEN ; 
( n is max no. of digits to be entered, which sta;s on stk ) 


( Wrap-up routine Ham 21:15 11/27/86 ) 


10D* ¢ d= 10*%d.;) 2DUP. 2DUP D+ .2DUP. Dt Dt 2DUP-Dt-3 


SCALE# #DEC @ 2?DUP IF #dec @ - O ?DO 10D* LOOP THEN ; 
( scale up to integer from decimal fraction ) 


#DONE (- d #) 
( leaves double number entered and no. of digits entered ) 
( no. of digits = zero means no digits entered ) 
0. #PAD 1- CONVERT ( leaves addr of lst nonconverting char ) 
#PAD - ( number of digits ) >R 
NEG? IF DNEGATE THEN SCALE# R> DUP 0= 
IF ( number is 0, see whether key pressed or no entry ) 
DROP #HIT @ O0> NEGATE ( Note: 83-Std fiag ) THEN ; 


( Adjust counts Ham 18:51 11/06/86 ) 


#dec-ADJ #dec @ IF #dec DECR THEN ;: ( down one decimal ) 


#WHOLE-ADJ dec? NOT IF #WHOLE DECR THEN ; { down 1 whole no.) 


NO-.? ( - £ ) #HIT @ O= NEG? O= dec? O= AND AND ; 


( When decimal point is hit Ham 18:53 11/06/86 ) 

-ROUTINE dec? IF BELL ( decimal point already entered ) 
ELSE dec~ ON ( mark entry of decimal point ) 
THEN ; 


( Check if need to adjust digits Ham 18:23 11/06/86 ) 


( WHOLE-CK & DEC-CK have this stack diagram: (nf-n f* ) 
( where n is the no. of digits entered so far ) 


: WHOLE-CK dec? 0= IF OVER #DEC @ - #WHOLE @ = OR THEN ; 
( makes flag T if dec pt not entered AND we have all the ) 
( whole number digits that we can accept ) 


DEC-CK #DEC @ ?DUP IF #dec @ = OR THEN ; 
( makes flag T if we have all the digits to the right ) 
( of the decimal that we can accept ) 


( The true flag will cause the latest digit entered to be ) 
( dropped and the bell to sound (if SOUND is on) 


( Count each digit entered Ham 18:24 11/06/86 ) 


VARIABLE OSTART ( T if starting with whole number zero ) 


( A starting whole number value of zero is in effect a ) 
( leading zero and should not be counted in the total of ) 
( digits entered, or else the final numeric digit will not ) 
( be accepted. ) 


CNT-DIGIT dec? IF #dec INCR 


ELSE OSTART @ IF OSTART OFF ( l-time switch ) 
ELSE #WHOLE INCR THEN THEN ; 


Initialization for “old"™ numbers 


~~ 


Ham 18:26 11/06/86 ) 
( If old number is decimal, all places are present. ) 


SET-dec #DEC @ ?DUP IF #dec ! dec~ ON THEN ; 


SET-NEG ( dn- nd _) ROT ROT ( move dbl to top ) 2DUP 0. DK< 
IF ( neg: convert and note sign ) DNEGATE NEG~ ON THEN ; 


( Put number into #PAD as an string of ASCII values: ) 


SET-#P ( d- ) <# dec? IF #dec @ 0 DO # LOOP THEN 
DIGCNT @ #DEC @ > IF #S THEN #> #PAD SWAP CMOVE ; 


~~ 


Initializes for loop Ham 18:34 11/06/86 ) 


DSET (dad # TI# F --mnp ) 
( m= # of digits to collect, n p = limits for loop ) 
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OSTART OFF #init OVER BOX THEN THEN THEN THEN THEN +LOOP 
IF ( old number present ) SET-dec SET-NEG 2DUP DROP ( count ) #DONE REVERSE ; 
2DUP OR O= #DEC @ O= AND ( double is both zero and whole ) 
IF OSTART ON THEN ( so mark it as a zero start ) 
#OFDIGITS #DEC @ MAX DUP #HIT ! ( set # of digits entered ) ( Test Ham 18:51 11/06/86 ) 
DUP #DEC @ - 0 MAX #WHOLE ! ( set # of whole digits ent) 
ROT ROT SET-#P ( make & save ASCII string ) 0 PLACES 
SWAP DUP 1+ ROT OSTART @ + ( using 83-Std flag to decr) OK-NEG OFF 


ELSE ( no old number present ) DUP 1+ 0 THEN ; ae ON 


5S NEW DIGITS 


Backspace routine Ham 10:35 12/13/86 ) 


CR CR 


VARIABLE INDX ( holds index from loop ) 2 PLACES 
OK-NEG ON 


: "I" ( - index ) INDX @; ( lets me get I from outside loop ) 
7 NEW DIGITS 


: NO#? (- f£) #HIT @ O= ; ( T= no digits entered ) 
+CUR 
: BSP-ROU ( -- loop-incr ) dec? #dec @ 0= AND 2 ue 
IF dec~ OFF 0 ( just backed over the decimal point ) End Listing 
ELSE "I" IF 0 "I" 1- #P! ( zap previous entry in string ) 
#HIT DECR #dec-ADJ #WHOLE-ADJ ( adjust counts ) 
NO-.? ( no minus sign or decimal point? ) 
IF BELL “I" NEGATE ( back up all the way ) 
ELSE NO#? IF “I" NEGATE 
ELSE -l THEN THEN 
ELSE *HIT/NEG BELL 0 THEN THEN ; 


The above above takes care of the details of the backspace in 
numeric entry & leaves the proper loop increment on the stk ) 


Final input word Ham 18:51 11/06/86 ) 


: DIGITS (d#T | # F -- d #) REVERSE DSET DO DISPLAY# GET# 
DUP Bs? IF DROP I INDX ! BSP-ROU 
ELSE DUP ASCII IF DROP NEG~ @ NOT NEG~ ! 0 
ELSE DUP ASCII . IF DROP .ROUTINE 0 
ELSE DUP ASCII IF DROP #PAD C@ ASCII 0 <> 
IF #HIT @ NEGATE ELSE 0 THEN #init 
ELSE DUP I #P! ( store char ) Cr? IF LEAVE THEN 
I 1+ #HIT ! ( count of net keystrokes ) 
DUP ( # of digits to enter ) I = WHOLE-CK DEC-CK 
IF ( at end: reject digit ) OI #P! I #HIT ! BELL O 
ELSE #PAD I + C@ ASCII 0 <> I O<> OR dec? OR 
NEGATE ( 83 Std flag ) DUP IF CNT-DIGIT THEN 





EXIM ToolKit 
BASIC Programming Support from EXIM Services 


EXIM Services announces the EXIM ToolKit. A 

growing Library of over 65 Assembler and BASIC 

Programming Modules: 

 Video/Screen B 1/0 File 

Management Management 

M DOS Environment Support Date Arithmetic 

@ Data BASE Management @ General Purpose 
Increase Productivity, Decrease Development Time and 
Add Functionality to Your Applications. 


A must addition for software developers using Microsoft mE ; 

QuickBASIC or IBM compilers. This high quality, low cost SPE PGMS Cele 

library offers developers the advantages of power and Ons eo OEE PAS rors: 

sophistication. Move dBASE programs to UNIX or other machines. 
Window or Frame Screens and Messages . . . Save/Re- 
Store Full or Partial Screens ...Accelerated Screen 
Displays . . . Horizontal/Vertical Scroll-Full or Partial 
Screen... Display “Pop Up” Help Screens. . . Find the 
First/Next Directory Entry... Sorting. . . etc. 


Easy to use, high quality, the EXIM ToolKit is being offered Includes full screen handler and uses your 
for only $65.00 plus $5.00 shipping and handling, with a current C database manager. 
full money back guarantee. 


“If you are not completely satisfied, return the diskettes and 
documentation within 30 days of purchase for a complete 
refund.” For MSDOS, PCDOS, UNIX, XENIX. Macintosh, AMIGA. 


Do not be left behind. Bring your applications up to date with (Uses ANSISYS driver on MSDOS, CURSES under UNIX) 
this NO RISK offer. Priced from $350, also available from distributors. 


No licensing or royalty fees are required to distribute ap- , 
plications using the EXIM ToolKit. Af Se ‘.DESKtop All 
xis G raqgemarKk oO 
mp Baarphian OF N.A, CS Soy EXIM X09 9 > 1720 Post Road E., Westport, CT 06880 = MCIMAIL - DESKTOPAI 


CLINTON, NEW JERSEY 08809 (201) 735-7640 Phone + 203-255 +3400 Telex + 6502972226MCI 


the dBx™ translator 






Improve program speed and reliability. 






support multi-user/network applications. 






With power guidebook of conversion hints. 






May be used to move existing programs or help 
GBASE programmers learn C easily. 








Circle no. 371 on reader service card Circle no. 258 on reader service card. 
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YOUR SYSTEM’S 
OMPONENT 


At last there is a magazine that brings you the 

strictly technical but practical information 

you need to stay up-to-date with the ever 
changing microcomputer technology ... 





















In future issues of Micro/Systems 
Journal you'll find such useful and 
progressive articles as: 


e Interfacing to Microsoft Windows 
¢ Multiprocessing and Multitasking 
¢ Using 80286 Protected Mode 
¢ High Resolution PC Graphics 

¢ 80386 Programming 

e Unix on the PC 


You'll get the hands-on, 
nuts and bolts information, insight 
and techniques that Micro /Systems Journal 
is famous for .. . indepth tutorials, reviews, hints 

_., the latest information on computer integration, networks and 
multi-tasking, languages, operating systems and hard-hitting reviews. 


To start your subscription to Micro/Systems Journal, simply fill out one of the attached 
cards or write to Micro/Systems Journal, 501 Galveston Dr., Redwood City, CA 94063. 
You'll receive a full year (6 issues) of Micro/Systems Journal for just $20, and enjoy the 

convenience of having M/SJ delivered to you each month. Don’t wait . . . subscribe today! 


Micro/Systems Journal, 


__ 1 Year (6 issues) $20 __ 2 Years (12 issues) $35 











___Please charge my: —— Visa —_ MC _— American Express 
___Payment enclosed - Bill me later 

0 a 

Signature 

Name 

Address 

| ee ee Zip 





Canada & Mexico add $3 for surface mail; $7 for airmail. All other countries add $12 for airmail. All foreign subscriptions 
must be prepaid in U.S. dollars drawn on a U.S. bank. Please allow 6-8 weeks for delivery of first issue. 
A Publication of M & T Publishing, Inc. 


ee 


__1 Year (6 issues) $20 __2 Years (12 issues) $35 











__Please charge my: _— Visa —_— MC _— American Express 
___Paymentenclosed - Bill me later 

ee 

Signature 

Name 

Address 

A Zip. 





Canada & Mexico add $3 for surface mail; $7 for airmail. All other countries add $12 for airmail. All foreign subscriptions 
must be prepaid in U.S. dollars drawn on a U.S. bank. Please allow 6-8 weeks for delivery of first issue. 
A Publication of M & T Publishing, Inc. 
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__1 Year (6 issues) $20 __ 2 Years (12 issues) $35 














___Please charge my: ___ Visa __._MC ___ American Express 
___ Payment enclosed -— Bill me later 

Card # Exp. date 

Signature 

Name 

Address ___——————— 

City State Zip 





Canada & Mexico add $3 for surface mail; $7 for airmail. All other countries add $12 for airmail. All foreign subscriptions 
must be prepaid in U.S. dollars drawn on a U.S. bank. Please allow 6-8 weeks for delivery of first issue. 
A Publication of M & T Publishing, Inc. r 
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Programming Eloquence 





TURBO 
Advantage: 


Source Code Library 
for Turbo Pascal 


T his library of more than 220 routines— 
complete with source code, sample 
programs and documentation—will 
save you hours of work developing 
and optimizing your programs! 


Routines are organized and docu- 
mented under the following categories: 
bit manipulation, file management, 
MS-DOS support, sorting, string 
operations, arithmetic calculations, 
data compression, differential equa- 
tions, Fourier analysis and synthesis, 
matrices and vectors, statistics, and 
much more! All source code is included. 


A detailed manual includes a descrip- 
tion of the routine, an explanation of 
the methods used, the calling sequence, 
and a simple example. For MS/PC- 
DOS systems. 


TURBO Advantage: Source Code 
Libraries for Turbo Pascal is also 
available with TURBO Advantage 
Complex: Complex Number Routines 
for Turbo Pascal and TURBO Advan- 
tage Display: Form Generator for 
Turbo Pascal. 


Turbo Advantage Item #070 $49.95 
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TURBO 
Advantage 
Complex: 


Complex Number Routines 


for Turbo Pascal 


Were with complex numbers is 
easy with the Turbo Pascal pro- 


cedures and routines provided in 


TURBO Advantage Complex! 


TURBO Complex provides procedures 
for performing all the arithmetic oper- 
ations and necessary real functions 
with complex numbers. Each pro- 
cedure is based on predefined con- 
stants and types. By using these 
declarations the size of arrays are 
easily adapted. Each type declaration 
is a record with both a real and imagi- 
nary part. Use these procedures to 
build more sophisticated functions in 
your own programs. 


TURBO Complex also demonstrates 
the usage of these procedures in rou- 
tines for vector and matrix calculation 
with complex numbers and variables; 
simultaneous Fourier transforms; cal- 
culations of convolution and correla- 
tion functions; low-pass, high-pass, 
band- pass and band-rejection digital 
filters; and in solving linear boundary- 
value problems. 


Source code and documentation is 
included for MS-DOS systems. Some 
of the TURBO Complex routines are 
most effectively used with routines 


contained in TURBO Advantage. 


TURBO Advantage/ 
Complex Package Item #070A $115 
TURBO Complex Item #071 $89.95 








Form — 
Generator for 
Turbo 


Pascal 





TURBO 
Advantage Display: 


Form Generator 
for Turbo Pascal 


ow, even if you have little program- 
ming knowledge, you can design 
and process forms to fit your needs! 


TURBO Display includes a menu- 
driven form processor, 30 Turbo 
Pascal procedures and functions to 
facilitate linking created forms to your 
program, and full source code and 
documentation. For MS-DOS systems. 


Some of the TURBO Advantage: 
Source Code Libraries for Turbo 
Pascal routines are necessary to com- 
pile TURBO Display. You save $20 
when you order TURBO Advantage: 
Source Code Libraries for Turbo 
Pascal together with TURBO Display: 
Form Generator for Turbo Pascal. 
Receive both for only $99.95! 


TURBO Display: Form Generator 
for Turbo Pascal is also available 
individually for $69.95. 

TURBO Advantage/ 

Display Package Item #070B $99.95 
TURBO Display Item #072 $69.95 
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Programming Eloquence 


Sa Ea 
Turho Pascal 
Toolhook 


___ Edited by 





Edited by 


Namir Clement Shammas 


Me your programming easier 
and more powerful with The 


Turbo Pascal Toolbook! 
You'll find: 


e an extensive library of low-level 
routines 

e external sorting and searching 
tools, presenting a new database 
routine that combines the best 
features of the B-tree, B+ and 
B++ trees 

¢ window management, to help you 

create, sort, and overlay windows 

artificial intelligence techniques 

mathematical expression parsers, 

offering two routines that convert 

mathematical expressions into 

RPN tokens 

¢ a smart statistical regression 
model that searches for the best 
regression model to represent a 
given set of data. 


All routine libraries and sample 
programs are on disk for MS-DOS 
systems, and over 800K of Turbo 
Pascal source code is included! 


Turbo Pascal Toolbook 

Item #080 

Turbo Pascal Toolbook with disk 
Item #081 


$25.95 
$45.95 
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STAT Toolbox 


for Turbo Pascal 


BB: convenience, power, and ver- 
satility to your statistics programs! 


Two statistical packages in one! 


A library disk and reference manual 
Use these powerful statistical routines 
to build your applications. 
Routines include: 
¢ statistical distribution functions 
¢ random-number generation 
e basic descriptive statistics 
® parametric and non-parametric 
statistical testing 
¢ bivariate linear regression, multi- 
ple and polynomial regression. 


A demonstration disk and manual 
This package incorporates the library 
of routines into a fully functioning 
statistical program. Two data manage- 
ment programs are included to facili- 
tate the storage and maintenance of data. 


Full source code is included. (For IBM 
PC’s and compatibles. Turbo Pascal 
version 2.0 or later, and PC DOS 2.0 


or later are required). 


STAT Toolbox Item #050 $69.95 





Dr. Dobb's 
Toolbook of Forth 


his comprehensive collection of 

useful Forth programs and tutorials 
contains DDjJ's best Forth articles, 
expanded and revised along with new 
material. You'll find sections on: 

e Mathematics in Forth 

© Modifications/Extensions 

e Forth Programs 

e Forth—the Language 

¢ Implementing Forth 


You'll also find Appendixes that will 
help you convert fig Forth to Forth-83, 
and tell you how to stay up-to-date on 
the latest developments and refinements 
of this popular language. 


The screens in the book are also 


available on disk as ASCII files. 


Dr. Dobb's Toolbook of Forth 
Item #030 $22.95 


Dr. Dobb’s Toolbook of Forth with Disk 
Item #031 $39.95 


Please specify MS/PC-DOS, Apple II, 
Macintosh, or CP/M. For CP/M disks, 
specify Osborne or 8” SS/SD. 





In CA 800-356-2002 
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Dr. Dobb's 
Toolbook of C 


T his authoritative reference contains 
over 700 pages of the best C articles 
and source code from Dr. Dobb’s Journal, 
along with new material by C experts. 
The level is sophisticated and prag- 
matic, appropriate for professional C 
programmers. You'll find hundreds of 
pages of valuable C source code, 
including a complete compiler, an 
assembler, and text processing 
utilities, all available on disk. 


Toolbook of C Item #005 $29.95 


Small-Mac: 
An Assembler 
for Small-C 


| be assembler includes: a 
simplified macro facility, C lan- 
guage expression operators, object 
file visibility, descriptive error mes- 
sages, and an externally defined instruc- 
tion table. You'll receive the macro 
assembler, linkage editor, load-and- 
go loader, library manager, CPU config- 
uration utility, and a utility to dump 
relocatable files. Documentation is 
included. For CP/M systems only. 


Small-Mac Item #012A $29.95 








Small-C Compiler 


‘| ike a home-study course in com- 
piler design, the Small-C Compiler 
and the Smal/-C Handbook provide 
everything you need for learning how 
compilers are constructed, and for 
learning C at its most fundamental 
level. Full source code is included. 


CP/M Small-C Compiler with 


Handbook Item #006B $37.90 
MS/PC-DOS Small-C Compiler with 
Handbook and Addendum 

Item #006C $42.90 


Small-C Compiler Item #007 $19.95 


The Small-C 
Handbook 


by James E. Hendrix 
J ames E. Hendrix's Smal/-C Handbook 


is the only complete reference for the 
Small-C language and Small-C Com- 
piler. In addition to describing the 
operation of the compiler, the book 
discusses assembly language concepts 
and program translation tools, and even 
how to generate a new version of the 
Small-C Compiler, available on disk. 
The Small-C Handbook is also 
available with an addendum for the 


MS/PC-DOS version. 
Small-C Handbook Item #006 $19.95 


Small-C Handbook with MS/PC-DOS 
Addendum Item #006A $22.95 


Please indicate MS/PC-DOS or CP/M. For CP/M, specify: Apple, 
Osborne, Kaypro, Zenith Z-100 DS/DD, 8” SS/SD. 








Small-Tools: 
rams for 
Text ssing 


hese Small-C programs perform 

specific, modular operations on 
text files, including: editing, format- 
ting, sorting, merging, listing, printing, 
searching, changing, transliterating, 
copying, concatenating, encrypting 
and decrypting, and more. Supplied 
as source code. With the Smal/-C 
Compiler you can select and adapt 
these tools to meet your own needs. 
Documentation is included. 


Small-Tools Item #010A 





$29.95 


Small-Windows: 
A Windowin 
Library for Smail C 


mall- Windows is a complete win- 

dowing library for Small-C. The 
package contains: 18 video functions 
written in assembly language; 7 menu 
functions that support both static and 
pop-up menus; and 41 window func- 
tions, including functions to clean, 
frame, move, hide, show, scroll, push, 
and pop windows. A file directory 
facility illustrates the use of the win- 
dow and menu functions and provides 
file selection, renaming and deletion 
capability. Two test programs are also 
included. For PC/MS-DOS systems 
only. Documentation and full source 
code is included. 
Small-Windows 





Item #109 $29.95 
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CP/M C Package 


Save over $27! 


Ree Dr. Dobb's Toolbook of C, 
The Small-C Handbook, Smal]-C 
Compiler, Small-Mac Assembler, and 
Small- Tools Text Processing Programs. 


Only $99.95! 
CP/M C Package Item #005A 


$99.95 


Please specify: Apply, Osborne, 


Kaypro, Zenith Z-100 DS/DD, 
or “3” 55/SD 


MS/PC-DOS 
C Package 


Save $22! 


Reve Dr. Dobbs Toolbook 

of C, The Small-C Handbook 

and MS/PC-DOS Addendum, Smal/-C 
Compiler, Small-Tools Text Processing 


Programs and Small Windows. 
Only $109.95! 


MS/PC-DOS C Package 
Item #005W 


$109.95 
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Programming Tools 








Nr: An Nroff-like Text Formatter for MS-DOS 


Nr is an expanded version of the text formatter described in Dr. Dobb’s 
February through April 1987 issues. Nr is written in C and is compatible 
with the Unix Nroff. You'll find complete implementation of the -ms macro 
package, and an in-depth description of how -ms works. 


Nr does hyphenation and simple proportional spacing. It supports automatic 
Table of Contents and Index generation, automatic footnotes and endnotes, 
italics, boldface, overstriking, understriking, and left and right margin 
adjustment. Nr also contains: 


¢ extensive macro & string capability 

¢ number registers in various formats including roman 
numerals and arabic, spelled out and in eiine form 

¢ diversions and diversion traps 

¢ input and output line traps 


Nr comes configured for any Diablo-compatible printer, and Hewlett Packard’s 
ThinkJet and LaserJet. It is easily configurable for most other printers and comes 
with full source code so that you can make it work with your system. 

For PC compatibles. 

Nr Item #165 $29.95 


Interfacing fo MS-DOS 
by William Wong 


Originally featured in Micro/Systems Journal, Interfacing to MS- DOS provides 
ten concise articles that will orient any experienced programmer to the MS-DOS 
environment. All source code discussed is also contained on disk. 


Topics include: program construction, character base input and output func- 
tions, and file access. You'll also find a discussion of CP/M style vs. Unix-style 
DOS file access, sample program files, and a detailed description of how to 
build device drivers. A device driver for a memory disk 
and a character device driver are provided on disk with 
full source code. 


Interfacing to MS-DOS Item #166 $29.95 
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Assembly Language Programming 
for the Z80 & 68000 





Contents include: 


an introduction to the 68000 family 
e 68000 Instruction Set 


Development Tools 





e A 68000 Cross-Assembler 


Useful 68000 Routines and Techniques 


e Bringing Up the 68000: A First Step 


Dr. Dobb's Toolbook 
of 68000 Programming 


his complete collection of practical programming tips and techniques for 

the 68000 family includes the best articles on 68000 programming ever pub- 
lished in DDJ, along with much new material. You'll learn about the most 
important features of the 68000 microprocessor from a full description of its history 
and design. And, useful applications and examples will show you why com- 
puters using the 68000 family are easy to design, produce, and upgrade. 


e A Simple Multitasking Kernel for Real-Time Applications 


¢ The Worm Memory Test 


e A Mandelbrot Program for the Macintosh 


All programs are also available on disk! 


68000 Toolbook 
68000 Toolbook with disk 


Item #040 $29.95 
Item #041 $49.95 


Specify MS-DOS, CP/M, CP/M 8” Osborne, Macintosh, Amiga or Atari 520st. 
68000 Cross Assembler 


A: executable -version of the 68000 Cross- Assembler discussed in the book 
is also available, complete with source code and documentation. Requires 


CP/M 2.2 with 64k or MS-DOS with 128k. Specify 8” SS/SD, Osborne, MS-DOS. 


68000 Cross Assembler 


Dr. Dobb's Z80 Toolbook 


by David E. Cortesi 


3 r. Dobb's Z80 Toolbook puts the power of assembly language in the hands of 
anyone who's done a little programming. You'll find: 


e A method of designing programs and coding them in assembly language 
and a demonstration of the method in the construction of several complete, 
useful programs. 


e A complete, integrated toolkit of subroutines for arithmetic, string- 
handling, and total control of the CP/M file system. They bring the ease 
and power of a compiler’s runtime library to your assembly language work, 
without a compiler’s size and sluggish code for you. 


e Every line of the toolkit’s source code there for you to read. 


All the software—the programs plus the entire toolkit, both as source code and 
object modules for both CP/M 2.2 and CP/M Plus—is yours on disk. Most of the 
programs are included in the book, however, the disk is necessary for complete 
listings. A DRI RMAC assembler or equivalent is required. 


Dr. Dobb's Z80 Toolbook Item #022 $25 
Dr. Dobb's Z80 Toolbook with disk Item #022A $40 


Specify 8” SS/SD, Apple, Osborne or Kaypro. 
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DD) 1986/87 
Back Issues 


March 1986 #113 Volume XI, Issue 3 
Parallel Processing—Concurrency 
and Turbo Pascal— What Makes DOS 
Fast— Minimizing Arbitrary Func- 
tions—MC68000 vs. NS32000. 


April 1986 #114 Volume XI, Issue 4 
Special Al Issue—Programming in 
LISP and Prolog—An Expert at Life— 
Perils of Protected Mode—I/O 
Redirection for the Shell. 


May 1986 #115 Volume XI, Issue 5 
Software Design form the Outside 
In—Dan Bricklin’s DEMO Program— 
Cryptographer’s Toolbox—EGA 
Graphics & Fact PC Graphics—-_How 
to Write Memory Resident Code. 


June 1986 #116 Volume XI, Issue 6 
Telecommunications Without Errors— 
General-Purpose Sorting—Structured 
Programming. 


Aug. 1986 #118 Volume XI, Issue 8 
Special C Issue—Benchmarking C 
Compilers—The Joy of Conciseness— 
Nearly Perfect Trees— Generics in 


Ada—Real-World Data Types. 


Sept. 1986 #119 Volume XI, Issue 9 
Smooth Algorithms—MS-DOS Direc- 
tory Traversal— Turbo Boards Review— 
Radix Sort— Does Turbo Prolog 
Measure Up—Crawling Memory Test. 


Oct. 1986 #120 Volume XI, Issue 10 
80386 Programming—MS-DOS File 
Browsing—Converting to the 320xx— 
Modula-2 Compiler Review— 
Factoring in Forth. 


Nov. 1986 #121 Volume XI, Issue 11 
Graphics Routines—The New Graph- 
ics Chips—Programming Tips in C, 
Modula-2, Pascal, and Ada— 

68K Graphics. 

Dec. 1986 #122 Volume XI, Issue 12 
Multitasking—32000 Assembler— 
Comparing String Comparisons— 
Turbo Pascal Procedural Parameters. 
Jan. 1987 #123 Volume XII, Issue 1 
Annual 68K Issue—68K Mini Forth 
OS-9 Operating System—Mac and 
Amiga Interface Programming. 


Feb. 1987 #124 Volume XII, Issue 2 


Editors and Assemblers. 


Mar. 1987 #125 Volume XII, Issue 3 
Data Compression Techniques. 


Other issues are also available. 
Please inquire. 
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Dr. Dobb's 1987 Listings 


You may also receive on disk all the source code for articles in the following 
issues. Available formats: MS-DOS, Macintosh, Kaypro. 


January 1987 Item #123 $14.97 
February 1987 Item #124 $14.97 
March 1987 Item #125 $14.97 
April 1987 Item #126 $14.97 


Dr. Dobb's 1986 Listings #1 


JANUARY—APRIL 1986 

Includes listings from the following articles, and more. 

January Issue #111 

“A Simple OS for Realtime Applications; 68000 Assembly Language Techniques 
for an Operating System Kernel” by DDJ editor Nick Turner. 

February Issue #112 

“Data Abstraction with Modula-2” by Bill Walker and Stephen Alexander 
March Issue #113 

“Concurrency and Turbo Pascal: An Approach to Implementing Coroutines in 
Pascal” by Ernest Bergmunn. 

April Issue #114 

“Boca Raton Inference Engine; Lsp, Prolog, and Expert 2 Techniques and Code” 
by Robert Brown. 


Dr. Dobb's Listings #1/86 Item #170 $14.95 


Dr. Dobb's 1986 Listings #2 


MAY—AUGUST 1986 

Includes listings from the following articles, and more. 

May Issue #115 

“Simple Plots with the Enhanced Graphics Adapter” by Nabajyoti Barkukati. 
June Issue #116 

“Compuserve B Protocol” by Steve Wilhite. 

July Issue #117 3 
“Structured Programming; Tiny Tools, Array-Defining Words” by Michael Ham. 
August Issue #118 

“Structured Programming; Generic Routines in Ada and Modula-2. Extended 
For Loop” by Namir Shammas. 


Dr. Dobb's Listings #2/86 Item#171 $14.95 


Dr. Dobb's 1986 Listings #3 


SEPTEMBER—DECEMBER 1986 

Includes listing from the following articles, and more. 

September Issue #119 

“Algorithms: Curve Fitting with Cubic Splines” by Ian E. Ashdown. 
October Issue #120 

“C Chest: More, a File-Browsing Utility” by Allen Holub. “Processors: TNZ: 
November Issue #121 

“Digital Dissolve” by Mike Morton. 
December Issue #122 

Dr. Dobb’s Listings #3/86 Item #172 $14.95 
Please specity MS-DOS, Macintosh, or CP/M. For CP/M disks specify: Apple, 
Osborne, Kaypro, Zenith Z-100 DS/DD, 8” SS/SD (1986 Listings Only). 
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Comprehensive Reference Guides 


Dr. Dobb's Journal 


VOLUME 


XO) BAVV.0 (5; 
exe) 





Dr. Dobb's 
Bound Volume 11 


All of 1986! 
Bound Volume 11: 1986 


he promise of power. With the 

introduction of the first true 32-bit 
microprocessors, desktop computers 
began to rival minis and mainframes 
in power. DD/ covered the changes 
with special issues on the 68000, 
parallel processing, artificial intel- 
ligence, the 80386, and multitasking. 
We supported the new chips with 
assemblers, translators, and other 
cross-development tools. Additional 
features included a special graphics 
issue, reviews of Dan Briklin’s DEMO 
program and Jef Raskin’s SwyftCard, 
and our sixth annual Forth issue. We 
introduced a new structured languages 
column, led by Michael Ham and Namir 
Shammas, while Ray Duncan and Allen 
Holub continued to provide their own 
valuable columns. 


Item #020F $35.75 
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Bound Volume 1: 1976 

The working notes of a technological 
revolution. Before there was Apple, 
DDJ put a programming language on 
the first microcomputers and became 
a chronicler and instrument of the 
microcomputer revolution. 
Item #013 $30.75 
Bound Volume 2: 1977 

Running light without overbyte. By 
year two the formula was clear: 

serious technical questions handled 
with a minimum of reverence much 
source code and a commitment to 
tight coding. 
Item #014 $30.75 
Bound Volume 3: 1978 

The roots of Silicon Valley growth. The 
S-100 bus was hashed out in DD/s 
pages. Steve Wozniak and others 
published in DDJ code would help to 
build an industry. 
Item #015 $30.75 
Bound Volume 4: 1979 

In the midst of the gold rush. Three 
years before IBM moved in, the 
neighborhood was less civilized. DD/ 
published a gold mine of tips, tricks, 
and algorithms. 
Item #016 $30.75 
Bound Volume 5: 1980 

C and CP/M. 1980 saw an all-CP/M 
issue, including Gary Kildall’s 

history of CP/M and Ron Cain's 
original Small-C Compiler. 


Item #017 $30.75 






Receive 11 years’ worth of useful code 
and fascinating history—the complete 
Dr. Dobb's library of 11 volumes for 
only $299. That's a savings of over $60! 
Item #020A $299 


Bound Volume 6: 1981 

The first of Forth. This was the year 
DDJ launched its first Forth issue and 
Dr. Dobb's Clinic. Plus: PCNET, the 
Conference Tree, and 6809 Tiny BASIC. 
Item #018 $30.75 


Bound Volume 7: 1982 
Legitimacy. DD] Observed the IBM 
phenomenon, reviewed MS-DOS and 
CP/M-86, and looked forward to fifth- 
generation computers. 
Item #019 $35.75 
Bound Volume 8: 1983 
Power tools. Professional software 
development on a PC was getting 
easier; DD/ helped with Small-C, the 
RED editor, and an Ada subset. 
Item #020 $35.75 
Bound Volume 9: 1984 
Shaping things to come. In 1984 DD/ 
examined new programming environ- 
ments: Prolog, expert systems, 
Modula-2, and a $49.95 Pascal. Plus 
Allen Holub’s GREP, Unix internals, 
and two encryption systems. 
Item #020B $35.75 
Bound Volume 10: 1985 

The year of living dangerously. In 
1985, iconoclastic DD/ beat Apple to 
the goal of adding more memory, 

a SCSI port, and a hard disk to the 
Macintosh. Also: powerful software 
tools in C, Modula-2, Forth, Pascal, 
‘assembly language, and Prolog. 


Item #020D $35.75 
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creer Form 





‘| ORDER NOW! ORDER NOW! ORDER NOW! 


NAME 
(Please use street address, not P.O. Box) 
ADDRESS 
Sf ee, | ne | |, 
DAY PHONE 


[_] Check enclosed. Make payable to: 


M&T Publishing, inc., 501 Galveston Dr., Redwood City, CA 94063 


[ |] Charge My: 


[_] Visa [_] MasterCard [_] American Express. 


Name on card 
Account No. 


Signature 





Expiration Date 





For disk orders, please indicate format. Refer to ad for standard format 


availability for each product. 


[]MS/DOS__[ |] Amiga CP/M 
[]Macintosh []Atari520st [] Kaypro [_] Osborne 
[_] Apple II L]8”SS/SD  []Apple 


[] Zenith Z-100 DS/DD 


QUANTITY ITEM# DESCRIPTION 




















CA residents must add applicable sale tax 


on merchandise total ____s— % 


Shipping must be included with order. See rates below. 


In U.S. For Bound Volumes, add $3.25 per 
book. Add $9.25 for Special C Packages. For 
other books and disks, add $2.25 per item. 
Outside U.S. For Bound Volumes, add $6.25 
per book surface mail. Add $18 surface mail 
for Special C Packages. For other books and 
disks, add $5.25 per item surface mail. For 


eign airmail rates available on request. For 
Fast Service and reduced shipping costs, 
Germans may order direct from: Markt & 


Technik, Buchverlag, Ilans-Pinsel-Strasse 2, 


8013 Haar bei Miinchen. Call Germany 89- 
4613-221 for prices in Deutsch Marks. 





In CA call 
800-356-2002 


UNIT PRICE 
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SHIPPING 
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TOTAL PRICE 
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USERS SAY 
BRIEF is BEST 























84% of BRIEF users were more productive with BRIEF than with any other 
editor. 72% were performing normal operations in 2 hours or less. * 


The Program 
Editor with 
the BEST 
Features 


Since its introduction, 
BRIEF has been sweep- 
ing programmers off 
their feet. Why? 
Because BRIEF offers the 
features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you’ve 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘“(BRIEF). . .is quite 
simply the best code 
editor I have seen.’’ 


*500 users were surveyed 
111 responded. 


Solution 


ystems ™ 


son 


Compare these features 
with your editor (or any 
other for that matter). 

@ FAST 

¢ Full UNDO (N Times) 

¢ Edit Multiple Large Files 
¢ Compiler-specific 
support, like auto 
indent, syntax check, 
compile within BRIEF, 
and template editing 
Exit to DOS inside BRIEF 
Uses all Available Memory 
Tutorial 

Repeat Keystroke 
Sequences 

15 Minute Learning Time 
¢ Windows (Tiled and 

Pop-up) 


Every Feature You Can Imagine 


IE 





4 eB 
Le mee te 


Zz 
a tne 
Be 
Zee, 


© Unlimited File Size 
-(even 2 Meg!) 


Reconfigurable Keyboard 
Context Sensitive Help 


¢ Search for ‘‘regular 
expressions’’ 


¢ Mnemonic Key 
Assignments 


¢ Horizontal Scrolling 


¢ Comprehensive Error 
Recovery 


¢ A Complete Compiled 
Programmable and 
Readable Macro Language 


e EGA and Large Display 
Support 


Adjustable line length 
up to 512 


MONEY-BACK GUARANTEE 
Try BRIEF ($195) for 30 days — If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 
SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061, 617-659-1571 


Circle no. 142 on reader service card. 








Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 
BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 





BRIEF is a trademark of UnderWare 


COLUMNS 


C CHEST 


Nr: A C Implementation of Nroifi, Part 3 


his is the continuation of the us- 

ers’ manual for nr, my text for- 
matting program. On the source code 
disk I show how the commands are 
used by presenting an implementa- 
tion of the ms macro package. (See 
the end of this column for informa- 
tion about the source-code disk.) 


Tabs and Leaders 

Nr supports arbitrary tab stops that 
can be placed at any column. Tabs 
are represented in the text with ei- 
ther an ASCII TAB character (Ctrl-D or 
with the \T escape sequence. Tabs 
are expanded at input time to the 
number of space characters needed 
to get to the indicated column. They 
don’t work very well in proportion- 
ally spaced fonts for this reason. 
Three types of tabs are supported: 
left adjusting, centering, and right ad- 
justing. The left-adjusting tabs are the 
normal variety—the text following 
the Ctrl-I or \T is aligned with the 
next tab stop. Centering and right-ad- 
justing tabs are more complicated. If 
a tab stop is a centering one, then all 
text between the next two Ctrl-Is is 
centered on the next tab stop. Simi- 
larly, right-adjusting tabs cause the 
text to be right-adjusted on the next 
tab stop. For example, the following 
two commands clear all the default 


by Allen Holub 


tab stops and then set up a left-adjust- 
ing, centering, and right-adjusting 
tab in columns 10, 20, and 30: 


.ta 
.ta 10L,20C,30R 


Given the input: 


\TIATHATHAT 
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\Tleft\Tcentered\Tright\T 


the following will be printed: 


left centered right 


The vertical bars mark the tab-stop 
positions. 

Leaders are like tabs except that 
the leader character rather than the 
tab character is used to pad out the 
text. The default leader character is a 
period. You use leaders for things 
such as tables of contents in which 
you wanta string of dots between the 
last word in the chapter title and the 
page number. A leader is signaled by 
embedding an ASCII Ctr]-A in the text 
(or by using the \A escape sequence). 
For example, the following sets up a 
tab stop at column 20 and then prints 
a table of contents entry with an in- 
tervening leader: 


.ta 
.ta 20 
Chapter 2 \A 17 


The foregoing will print as: 
CPAWMNOE 2.204 sack ia. 17 


.ta[A,B, ... Z]—the argument, if pre- 
sent, is a comma-delimited list of tab 
stops. Each element of the list can be 
a specific column, as in .ta 9,17,25,33, 
or an offset from the previous num- 
ber, asin .ta 8, +8, +8, +8. In addition, 
each number can be followed by one 
of the following tab types: R, for 


right-justified; C, for centered; and L, 
for left-justified. An example was giv- 
en earlier. If no tab type is specified, L 
is assumed. If no argument is given, 
all tab stops are cleared. 


.tp—print out all the current tab stops 
in a graphical form: 


with an L, C, or R depending on the 
tab type. 


.tc C—set the tab-expansion charac- 
ter to C. The default tab-expansion 
character is a space. If no C is given, 
tab expansion is disabled. 


.ic C—change the leader character 
from a period to C. 


Control Flow 

Though nr doesn’t support a fancy 
control-flow language, it does sup- 
port if and if... else mechanisms. 
The control-flow statements nest. 
The expression syntax described ear- 
lier is also used in an if statement, so 
all the expression operators are avail- 
able to you here. An expression that 
evaluates to zero is false; nonzero ex- 
pressions are true. The basic form of 
the if statement is if expr action, 
where expr is any expression involv- 
ing constants, number registers, and 
so forth, and action is any single dot 
command or text. For example, in: 
if "\n%!=1" bp 

the .bp will be executed only if you're 
not on page 1. In 
if "\n%==1" Thisis the Title 
the text This is the Title is printed 


only on page 1. You could also use the 
if... else form of the command: 


Dr. Dobb’s Journal, April 1987 





How a magical 
Genie saved this 
programmer from 
going crazy | 


Fite format changes were driving me nuts. a 
Then, I got stuck with a 12 year old word 
processing file that had to be converted to 
WordStar® ASAP. I must have passed out 
momentarily, because the next thing I re- 
member is a guy in a turban, jamming a 
diskette into my PC. He pressed a few keys 
and “Presto;’ he created a new utility for my 
program. The file conversion underway, I 
passed out again and when I woke up, he 
was gone—but the amazing utility software he had 
used remained. 4 hed 
File Genie, that’s the name on the diskette. An amaz- aan 
ing tool. Since then, I discovered that it will convert 4 
word processing and data files from most any format to 
any other. And, as if that isn’t enough, it also: diagnoses 
and fixes errors in broken database files, instantly 
searches and replaces on seven and eight bit data (on 
ambiguous file names, with the most complete set of 
regular expressions I’ve ever seen), has a script language 
with IF, ELSE, WHILE, FULL SCREEN CONTROL, 
and the ability to run DOS commands or programs, 
comes with on-line context sensitive help, et cetera, 
et cetera. Allows printing of files without my a A ee 
printer reacting to control codes too. — See 
With File Genie I write my own utility pro- oa 
grams quickly and easily. As you can imagine, 
I guarded this little gem with my life, keeping it 
totally secret. Until everybody kept asking me 
how I was doing all these incredible things. I have to 
admit, I am sold. Which gets me to the really fabulous 
news. File Genie is available by calling 1-800-822-0852 for 
an introductory price of only $69.95. You’ll save that much in 
aggravation the first time you use it. So if those files are driving \ 
you crazy, too, call and order your File Genie today. : 


WordStar® is a registered trademark of MicroPro 


gs 
et FI l€ 6809 Convoy Court 
San Diego, CA 92111 
Ge NIE 619-278-5353 (CA) 
800-822-0852 (USA) 


A software product of Team Austin Inc. 













™ 


Circle no. 204 on reader service card. 





© CHEST 
(continued from page 130) 


jie ”\n%!= 1” .bp 
.el This is the Title 


You can combine several state- 
ments into a block using the two 
block commands (.fand.}). For exam- 
ple, in: 


ie ”\n% != 1” .{ 
bp 
sp 10 


} 
.el This is the Title 


both .bp and .sp 10 will be executed if 
you re not on page 1. For nroff-com- 
patibility reasons, you can also use 
the less readable: 


ie "\n% != 1” \{\ 


.bp 
sp 10 \} 
.el This is the Title 


if you like. 


if condition—a simple if statement 
(that doesn’t take an else clause). The 


O88 OPTIMIZER 


for the 


C-Ware/DeSmet C Compiler 


(version 2.6 or earlier, small model) 


Is your program too big or slow? 
Want to compile for an 80286? 


Reduces both code size and execution time. 

Fully integrated with C88, GEN, and ASM88. 

Two environment variables to control options. 
Senses and supports 8088, '86, '188, '186, '286, V20 


and V30 processor chips. 


Senses and supports 8087, '287 (replaces floating- 
point library calls with in-line 8087 code). 
Includes installation program and printed manual. 


PC/MS-DOS 2.x & 3.x 


KEY SOFTWARE PRODUCTS 
440 Ninth Avenue, Menlo Park, CA 94025 


(415) 364-9847 


C88, GEN, and ASM88 are products of C-Ware 
8088, '86, '188, '186, '286, '87, and '287 are trademarks of Intel . 
V20 and V30 are trademarks of NEC. 
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$49.00+51 s/h 


(California residents add 6.5% sales tax) 


expression parser described earlier is 
used to evaluate condition. Two spe- 
cial conditions are supported: 

.if e action 

.if o action 
The e evaluates to true if the current 
page number is even; the o is true if 
you re doing an odd page. 


.le condition—the if part of an 
if... else. It is otherwise used like an 


if. 


.el—the else clause part of the .ie 
command. 


.(—start a block for an .if, .ie, or .el. 
The \/\ and \{ escape sequences are 
mapped to a .{ for’ nroff 
compatibility. 


.}terminate a .{ block. The \} escape 
sequence is mapped to a .} for nroff 
compatibility. 


Hyphenation 

Nr supports automatic hyphenation, 
enabled with a .hy command and dis- 
abled with a .nh command. The nroff 
-hy command takes arguments, but 
the nr variant ignores its arguments. 


- 


& 


Name 
Address 


City 


A conservative hyphenation algo- 
rithm is used to avoid incorrect hy- 
phens. In addition, only words com- 
posed of lowercase alphabetic char- 
acters are hyphenated. If the word 
contains a hyphen, it is always sub- 
ject to being broken at the explicit hy- 
phen. In general, nr won't hyphen- 
ate a word if it’s not sure what to do. 
Nonetheless, it does make occasional 
mistakes. You can put a soft hyphen 
into the word to tell the program 
where a hyphen can go—the \% es- 
cape sequence is a soft hyphen. For 
example, nr will not hyphenate hy- 
phenate correctly (it will try to make 
it hyphe-nate). You can correct this 
with hyphen \%ate. The \% is ignored 
if no hyphen is inserted. If \% pre- 
cedes the word, that word won't be 
hyphenated. If a word contains a soft 
hyphen, nr will not rehyphenate it. 


-hy [N]—enable hyphenation; N is 
ignored. 


nnh—turn off hyphenation (turned 
on with a .hy command). 


Three-Part Titles 
Three commands are used to support 


Changing Your 
Address? 
We'd Like to Know. 





To change your address, attach your 

address label from the cover of the mag- 

azine to this coupon and indicate your 
new address below. 


affix label here 


“i 


Ae 2 


State 
Mail To: 


Zip 


Dr. Dobb’s Journal, P.O. Box 27809, San Diego, CA 


92128 
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three-part titles: 


tl /A/B/C/—print a three-part title. 
A, B, and C are strings, where A is 
left-justified, B is centered, and C is 
right-justified on the page. Any of 
these can be omitted, as in: 

tl ///page %/ 

ete A/ 
The first character in the string (a / 
here) is used as a delimiter and can be 
any character. The title is printed at 
the current page offset but indent is 
ignored. The title width is defined 
with the ./t command. A % character 
is special in a title. It is replaced by 
the current page number, printed in 
the current format associated with 
the % number register. For example, 
you can produce Roman-numeral 
page numbers with: 

af %i 

i Gage ag oA 
The .t! command is usually used in a 
top-of-page or bottom-of-page macro. 


It [+—JN—specify the width of a 
three-part title, in spaces. Because 
this command does not affect the ./l 
command, it’s possible to have a title 
with a different width from that of 
the body of the text. 


.pc C—change the character used to 
indicate a page number in a three- 
part title from % to C. This is useful if 
you want to put a percent sign in the 
title itself. 


Output Line Numbering 
Nr can automatically number out- 
put lines for you—in fact, I use it to 
generate all the numbered listings 
5:for C Chest. You enable output line 
numbering with a .nm command. 
Note that this command behaves a 
little differently from the nroff 
equivalent, mostly because I can’t 
figure out how the nroff one 
10:works. Numbers are printed right- 
justified in a_ three-space-wide 
field. Syntax is .nm N M S, where 
N is the number used for the first 
line, M is a line number multiplier 
15:and S is a string that’s printed to 
the right of each number. The 
number is printed only when the 
current output line number is an 
integer multiple of M. When it’s 
20:not, a filler composed of three 
space characters is printed instead 
of the number. This paragraph 
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was output with .nm 1535: 


.nm N M S—enable or disable line 
numbering. If you need to change M 
without changing N, use .nm x M S, 
where x is any nonnumber. The 
same goes for .nm x x S. You can turn 
off line numbering by issuing a .nm 
with no arguments. If you want to 


Nr provides 
several 
mechanisms 
other than 
the command line 
for getting input 
or sending output. 


reenable it without resetting the line 
number, use .nm x, where x is any 
nondigit. In addition, the line num- 
ber used by .nm is stored in the pre- 


defined nl number register. 


.nb [args] —enable or disable blank- 
line numbering. Usually blank lines 
are not numbered—they are output 
but no number is printed and the out- 
put line number is not incremented. 
A .nb X causes blank lines to be num- 
bered too. A .nb with no arguments 
disables blank-line numbering. This 
command is not supported by nroff. 


Input and Output 

Nr povides several mechanisms 
other than the command line for get- 
ting input or sending output to the 
file or the console: 


.cf file—copy file directly to standard 
output without any sort of process- 
ing. This command is useful for auto- 
matically downloading fonts. 


.tm string—print string directly to 
standard error. One of the uses for 
this command is to print diagnostics. 
My version of the ms package, for ex- 
ample, prints the page number at the 
top of each page so you can see 





UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 


assistant — C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 


too. 
Source code in standard K&R C is included: 


and you are welcome to use it with any compiler 


(UNIX compatible) and operating system you 
choose. 


12 Time Savers 
DIFF - Compares text files on a line-by-line 


basis; use CMP for byte-by-byte. Indispensable 


for showing changes among versions of a 
program under development. 
GREP - Regular exp.. ssion search. Ideal for 


finding a procedural call or a variable definition 


amid a large number of header and source 
files. 


FCHART - Traces the flow of control between 


the large modules of a program. 

PP (C Beautifier) - Formats C program files 
so they are easier to read. 

CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 


The C Programmer's Assistant 


C TOOLSETS@ 





CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 


C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 
risk-free for only $95. 


Solution 
Systems ” 
335-D Washington St., 


Norwell, MA 02061 
(617) 659-1571 
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ISN'T IT A PITY... 

















FILE HANDLER 


Performance and Portability 


For all the time you devote to developing 
your new programs, doesn't it make sense to 
insure they perform like lightning and can be 
ported with ease? 






c-tree: Multi-Key ISAM Functions 
For Single User, Network, & Multi 
Tasking Systems 


Based on the most advanced B+ Tree routines 
available today, c-tree gives you un- 
matched keyed file accessing performance and 
complete C Source Code. Thousands of profes- 
sional C programmers are already enjoying 
c-tree’s royalty-free benefits, outstanding 
performance, and unparalleled portability. 











Only FairCom provides single and multi-user 
capabilities in one source code package, 
including locking routines for Unix, Xenix, and 
DOS 3.1., for one low price! In addition, 
c-tree supports fixed and variabie record 
length data files; fixed and variable length key 
values with key compression; multiple indices 
in a single index file; and automatic sharing of 
file descriptors. 









r-tree: Multi-Fle Report Generator 


r-tree Duilds on the power of c-tree 
to provide sophisticated, multi-line reports. 
Information spanning multiple files may be 
used for display purposes or to direct record 
selection. You can develop new reports or 
change existing reports without programming 
or recompiting and can use any text editor to 





















Everything Isn’t As 


Accommodating As 
c-tree / r-tree 


Xenix iS a registered trademark of Microsoft Corp. Unix is a registered trademark of AT&T 








REPORT GENERATOR 


create or modify r-tree report scripts 
including the complete report layout. At your 
option, end users may even modify the report 
Scripts you provide. 


Unlimited Virtual Fields; Automatic File 
Traversal 


r-tree reportscripts can define any number 
of virtual fields based on complex computational 
expressions involving application defined data 
Objects and other virtual fields. In addition, 
r-tree automatically computes values 
based on the MAX, MIN, SUM, FRQ, or AVG of 
values spread over multiple records. r-tree 
even lets you nest these computational func- 
tions, causing files from different logical levels 
to be automatically traversed. 


Unlike other report generators, r-tree allows 
you to distribute executable code capable of 
producing new reports or changing existing 
reports without royalty payments, provided the 
code is tied fo an application. Your complete 
source code also includes the report script 
interpreter and compiler. 


How To Order 


Put FairCom leadership in programmers utilities 
to work for you. Order e-tree foday for 
$395 or r-tree for $295. (When ordered 
together, r-tree is only $255). For VISA, 
MasterCard and C.0.D. orders, call 314/445- 
6833. For e- tree benchmark comparisons, 
write FairOom, 2606 Johnson Drive, Columbia, 
MO 65203. 


12g 
& ‘ Complete C Source Code & No Royalties! 
Ct lg 
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CGHEST 
(continued from page 133) 






where you are in the formatting pro- 
cess, even if output’s redirected. You 
have to use \N to get a new line intoa 
.tm string (as in .tm page \n%\N). 


.mf macro file—copy the contents of 
the named macro into the indicated 
file. This is not an nroff command. 
It’s useful primarily for indexes. You 
can write a macro for collecting in- 
dex entries, and this macro would 
automatically append some sort of 
reference information and the cur- 
rent page number to a special macro 
every time that it was called. After 
the entire document has been pro- 
cessed, the macro could then be 
transferred to a file so that you could 
modify the data. 






.ou string—send string directly to the 
current output, without going 
through the normal text-processing 
mechanism. This also is not an nroff 
command. This command is for 
sending control sequences directly to 
the printer—that is, for initializations 
and so on. Use \x<2 hex digits> to 
send nonprinting characters. Note 
that the —c flag (which causes con- 
trol characters to be printed in read- 
able form) affects the output from 
this command. 






rd [prompt] —read insertion from 
standard input rather than from the 
current input file. Reading stops 
when two new lines in a row are en- 
countered. This command allows 
you to insert text interactively into a 
document. The prompt, if any, is 
printed (and the bell is rung) before 
any text is read. 






.so file—get (source) input from the 
named file. The position in the cur- 
rent file is remembered, and _ pro- 
cessing will continue when the 
source file is exhausted. This com- 
mand works like an 4include direc- 
tive in C does. The .so command 
is replaced by the contents of the 
indicated file. 





Miscellaneous 
.\”— signifies a comment. The entire 
line is ignored. Note that a dot on a 
line by itself is also considered to be a 
comment line. 
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.db [1] —enable or disable debugging 
mode. A .db x enables debugging 
mode (same as —v —c on the com- 
mand line), and a .db without an argu- 
ment disables debugging mode. This 
is not an nroff command. 







.ex—exit back to the operating sys- 
tem just as if input had ended. The 
end macro is executed. 











.ig [xx] —ignore all input until a line 
starting with .xx is found, where xx is 
the argument to .ig. In the absence of 
xx, . . is used. 











.mc string [N] —specify a right margin 
character, and print string, N spaces 
to the right of the current right mar- 
gin. This usage differs from nroff, 
which uses a single character rather 
than a string. If no arguments are pre- 
sent, the margin character is disabled. 
The string is limited to 20 characters 
(including any spaces implied by N). If 
N is missing or 0, 2 is used. 















.ml string—print the string at the left 
margin rather than the right margin 
(it works like .mc does). The page off- 
set must be at least as large as the 
string, which is limited to 21 charac- 
ters. This command is not supported 
by nroff. 












.wa [N]/ —wait for about N seconds (at 
most N + 1). If N is 0 or if no argu- 
ment is given, a prompt is printed 
and the program waits for you to 
type Enter. This command is not sup- 
ported by nroff. 










.ws N—enable WordStar-mode out- 
put. If N is 0 (or missing), WordStar 
mode is disabled. If N is 1, all single 
new lines are mapped to WordStar 
soft carriage returns. Note that dou- 
ble new lines, as are used to create a 
blank line, map to two hard carriage 
returns. This way you can get a hard 
carriage return at the end of a para- 
graph by putting a blank line after 
every paragraph. An N of 2 is han- 
dled like N=1 except that single car- 
riage returns are replaced with space 
characters rather than soft carriage 
returns. Note that you'll also want to 
do the following: 

.po0 \” No page offset 

.bd \x02 \x02 \” *B for bold 

.ud \x13 \x13 \" *S for underline 
.od \x18 \x18 \” *X for overstrike 
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A ’C’ Interpreter for the PC 


int, char, long, float, struct, union, pointers, 
function pointers, pointers to pointers, arrays 
Standard C function library - Help windows 
Command processor shell - I/O redirection 
Full screen editor - Full screen debugger 


QC is for the C Beginner 
QC is an ideal learning tool. Enter and run the exercise programs in the QC reference manual 
or those from many of the popular C books. Your learning process is enhanced by QC’s fast 
execution and interactive debugger. Watch your program step through the source code. Set 
breakpoints. Examine and alter variables. Execute C expressions from the keyboard. 

Learn at your own pace - don’t be bound by a slow compiler and linker. 


QC is for the C Veteran 


QC is an excellent tool for the professional programmer. Use the QC full screen debugger to 
check out your programs without long compile and link passes. Source programs that you 
develop with QC can be compiled with any of the popular C compilers for the PC. QC’s 
standard library is compatible with those of most compilers. The source code for the 

library is included, and you can add your own library functions. 


QC is affordable: only $60 

Compare QC to interpreters selling for $99, $150, $249, $300, and $495. Compare QC’s full 
30-day money-back guarantee. If you are not convinced, send for our $10 demonstration 
diskette (applied to your purchase) and watch QC in action. We accept MasterCard and Visa. 


C SOFTWARE TOOLSET 
2983 Newfound Harbor Drive 

Merritt Island, FL 32952 

(305) 453-0257 
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FULL AT&T C++ for half the price of our competitors! 


Guidelines announces its port of version 1.1 of AT&T’s C++ translator. As an 
object-oriented language, C++ includes: classes, inheritance, member functions, 
constructors and destructors, data hiding, and data abstraction. ‘Object-oriented’ 
means that C++ code is more readable, more reliable and more reusable. And that 
means faster development, easier maintenance, and the ability to handle more 
complex projects. C++ is Bell Labs’ answer to Ada and Modula 2. C++ will 
more than pay for itself in saved development time on your next project. 


C++ 


from GUIDELINES for the IBM PC: $195 


Requires IBM PC/XT/AT or compatible with 640K and a hard disk. 
Note: C++ is a translator, and requires the use of Microsoft C 3.0 or later. 


Here is what you get for $195: To order: 
The full AT&T v1.1 C++ translator. send check or money order to: 
Libraries for stream I/O and complex math. 
fe et Programming Language } the . P.O. Box 749 
efinitive 327-page tutorial and description ; 
by Bjarne Stroustrup, designer of C++. ORAnea; (CR. “Saabs 
Sample programs written in C++. To order with Visa or MC, 
Installation guide and documentation. phone (415) 254-9393. 
30 day money back guarantee. (CA residents add 6% tax.) 


GUIDELINES SOFTWARE 


C++ is ported to the PC by Guidelines under license from AT&T. 
Call or write for a free C++ information package. 
Circle no. 351 on reader service card. 
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AGEL 
(continued from page 135) 


This command is not supported by 
nroff. 


Escape Sequences 

Escape sequences are special se- 
quences of characters that either tell 
nr to do something or signal some 
sort of macro expansion (that is, the 
escape sequence will be replaced by 
some other text). They are all intro- 
duced with a leading escape charac- 
ter. This character is a backslash by 
default, but you can change it with 
the .ec C command, where C is the 
new escape character. 

Nr expands escape sequences in 
three distinct modes: normal mode, 
copy mode, and nroff copy mode. In 
normal mode, usually in effect, all es- 
cape sequences are expanded. Copy 
mode becomes active when a macro 
is being defined—that is, at definition 
time, the contents of the macro or 
string are copied into the macro in 
copy mode. The macro is expanded 
in normal mode, however. In copy 
mode only two escape sequences are 
recognized: \”, which introduces a 
comment; and \(CR), a backslash at 
the end of the line, which is a hidden 
line feed (that is, the current line is 
merged with the next line). All other 
escape sequences are just copied into 
the macro intact. The real nroff has a 
less restricted copy mode in which 
all the following are recognized: 


MGR) A? XS A" XSN' \nx\ntxx: \in-x 
\n+(xx \*x \xx \\ 


Usually this is more trouble than 
it’s worth because you have to use \\ 
every time you want to get a \ intoa 
macro (to prevent it from being ex- 
panded at definition time). You can 
use nroff copy mode instead of nor- 
mal copy mode, however. It is en- 
abled with a.cm 1 command and dis- 
abled using .cm without the 
argument. Supported escape se- 
quences are summarized in Table 1, 
page 137, and are described in depth 
in the following paragraphs. 

”“—introduces a comment. All char- 
acters following the \” on the line and 
all white space preceding the \” on 
the line are ignored. A \” at the begin- 
ning of line is treated as if it were a 
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blank line (the fill buffer is flushed 
and a blank line is written to the 
out put). The .\” command, how- 
ever, causes the line to be ignored 
entirely (for example, no blank line is 
printed). 


\(CR) —ignores the end of line—that 
is, all text on the following line is 
merged with text on the current line, 
as if the two lines were one. 


\.—a dot that’s never interpreted asa 
command character. 


Nr expands 
escape sequences 
in normal 
mode, 
copy made, 
and nroff copy 
mode. 





\’—a backquote that’s never inter- 
preted as a secondary command 
character. 


\\—expands to a backslash. 


\$N—a macro argument, where N is 
a number in the range 1—9. A macro 
defined with: 

.de XX 

arg 1 <\$1> 

arg 2 <\$2> 

aes <\i3> 


and invoked with: 

.XX "this is one argument” doo wha 
will print: 

arg 1 <this is one argument> 

arg 2 <doo> 

arg 3 <wha> 


\*x—expands to the contents of a 
string named x. Strings are created 
with a \.ds or \.as command. Note 
that the string could also be expand- 
ed as if it were a macro (using \.x). 
Nested \* expansions are supported, 
and the strings can contain other es- 
Cape sequences (such as \nx). 


\*(xx—expands to the contents of a 
*x string having the two-character 
name xx (works like \*x does). 


\nx, \n(xx, \n+x, \n+(xx—interpo- 
lates number registers, discussed 
earlier. 


\%—indicates a soft hyphen. Soft hy- 
phens are used to indicate places 
where a word may be hyphenated. If 
hyphenation is disabled or if the 
word isn’t at the end of a line, then 
the soft hyphen is ignored. For exam- 
ple, hy\%phen\%ate tells nr to hy- 
phenate hyphenate either after y or n. 
Words with soft hyphens in them 
will not be rehyphenated by the 
automatic-hyphenation algorithm. 
You can prevent a word from being 
hyphenated by preceding the first 
letter with a soft hyphen. 


\&c—treats the c as a literal charac- 
ter. Note that this is different from 
the normal nroff syntax, which 
treats \& as a zero-width, nonprint- 
ing character. Because nr uses sever- 
al characters whose values are great- 
er than 0x7f internally, \& is the only 
safe way to get such a character 
through to the printer. For example, 
if you need to get a Ox8a to the printer 
without nroff intercepting it, use 
\&\x8a. The character following the 
\& can be any single character or es- 
cape sequence that evaluates to a sin- 
gle character. 


\(SP) (a backslash followed by a 
space)—a nonpaddable and non- 
breaking space. Given two words 
separated with a nonpadding space 
(word\ word), the justification algo- 
rithm will never add additional 
spaces between the words and the 
two words will always be on the 
same output line. 


\—_— evaluates to a dash (it’s a minus 
sign in troff). 


\/,\*, \o—nr ignores the first two and 
maps a \0 to a normal space charac- 
ter. These sequences are supported 
for compatibility with troff, which 
treats \/ as a thin space, \* as a some- 
what thicker but nonetheless thin 
space, and \0 as a digit-width space. 


\A—a visible leader character. It’s 
the same as a Ctrl-A embedded in the 
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text. 


\L’Nec’, \l’Nc’—the two line-drawing 
functions. \L’Nc’ evaluates to a verti- 
cal line composed of N cs stacked one 
on top of the other. For example, the 
command \L’3+‘ prints: 

= 

aa 

os 
The cursor is positioned immediately 
below the bottom plus sign (you can 
use \v [discussed later] to get back to 
the top). If no character is specified 
explicitly, a vertical bar is used: \L’3’ 
prints a three-line-high bar. 

The \l‘Nc’ works just like \L does 





Copy mode 


except that a horizontal line is 
drawn. For example, \l’20—’drawsa 
horizontal line composed of 20 
dashes. The default character is an 
underscore. Note that you can’t use 
an escape sequence for the line char- 
acter (as in \/’10\x85). You can define 
a string to do this though: 

.ds li \\l’10\x85’ 

\*(li 


\N—a new line that can be embed- 
ded in a string or .tm command. 


\T—a visible tab character, it is re- 
placed with a CtrI-I, which will be ex- 
panded as the input is processed. 


¥ Comment (deletes all following text and all preceding white space). 


\(CR) Ignore the end of line. 


Expanded in nroff copy mode but not in normal copy mode 
\ A dot that’s never interpreted as a command character. 
\ A backquote that’s never interpreted as a command character. 


\\ A backslash. 
\SN 
\*x 


Macro argument, where 1 <= N<= 9. 
String x. Nested \* expansions are supported, and the strings can contain 


other escape sequences (such as \nx). 


\*(xx 
\nx 
\Nn(xx 
\n+x 
\n+ (xx 


String xx. 
Number register x. 
Number register xx. 


Number register x with auto preincrement. 
Number register xx with auto preincrement. 


Expanded only when not in either normal or nroff copy mode 
Soft hyphen. 
cis literal (can be \xDD) (nonstandard). 
Nonpaddable nonbreaking space. 

Dash (minus sign in troff). 
Normal space (digit-width space in troff). 


\% 
\&c 


Same as “A. 
\LUNe’ 
\P Ne’ 


Vertical line of N cs (default cis /). 
Horizontal line of N cs (default c is underscore). 


New line that can be embedded in a string or .tm command. 


Same as ‘I. 


Where X is any other character, that character. 


Nonexpanded leader character. 


Down a half line. 


Printable version of current escape character. 


Change to font F. 


Horizontal motion by N spaces (N can be negative). 
Horizontal motion by N units (as defined with .ha). 
Vertical motion by N spaces (N can be negative). 


\v’Nu’ 
\o’ab’ 
\r Up one line. 

\t Nonexpanded tab character. 
\u Up a half line. 


Vertical motion by WN units (as defined with .ha). 
Superimpose all characters between the quotes (overstrike). 


Where DD is two hex digits, that character. 


cis zero width. 

Start block (see also ./). 
Ignored (thin space with troff). 
End block (see also .}). 





Table 1: Nr-supported escape sequences 
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\a—a nonexpanded leader charac- 
ter. That is, it’s a Ctrl-A that will make 
it through to the output without be- 
ing transformed into a series of dots 
or whatever. 


\d—sends the cursor down half a 
line. N2 can be done with N \u2\d. 


\e—a printing version of the current 
escape character (the one that was ac- 
tive when the \e was encountered in 
the input). This is more convenient 
than \\ because many macros will 
create other macros on the fly, and 
each level of secondary macro will 
also expand backslashes. Sometimes it 
can take as many as six or eight back- 
slashes for one to make it all the way 
to the output. A single \e, however, is 
never interpreted as a backslash—it 
always gets to the output unmolested. 


\f F—changes fonts. For example, 
the word italics was created with 
\flitalics\f P. (See the description of 
the .ft command for’ more 
information.) 


\A'N’, \h’Nu’, \v’N’, \v’Nu’—give you 
fine control over cursor motion. The 
\h command is for horizontal motion, 
and the \v is for vertical. N is the num- 
ber of lines or spaces, as appropriate. 
N can be negative. For example: 

X \h’4’X\h’—1’\v’2’X \h’—5’X 


prints: 
X X 
X X 
It can be broken up into: 
X print an X 
\h’4’ move four spaces to the 
right 
X print another X 
\h’—1’ back up one position (over 
the last X) 
v2 go down two lines 
X print a third X 
\h’—5’ back up five spaces 
X print the last X 


If the character u follows the 
count, then motion will be in terms 
of vertical and horizontal units, as de- 
fined with the .vd and .hd com- 
mands, instead of lines and spaces. 


\o’ab’—superimposes all characters 
between the quotes one on top of the 
other. For example, \o‘0/’ can be 
used to print #. Use the special es- 
cape sequence \’ to put a single quote 
into the list. 
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Flotsam and Jetsam 


Declarations and 
Definitions in One File 
The matter of declarations and defi- 
nitions that I discussed in last month's 
Flotsam and Jetsam can cause main- 
tenance problems. You can define (al- 
locate space for) a variable in only 
one place in your program. Nonethe- 
less, you have to declare the variables 
(with extern statements) in every file 
that uses the variable. 

Michael Yam of NYC suggests a so- 
lution to this problem: “Managing 
globals can be messy, particularly in 
a C program that has many modules. 
One of the more difficult tasks in a 
large program is coordinating the 
variable declarations (the extern 
statements in a .H file) with the defi- 
nitions (where the space is allocated 
in a .C file). You can both define and 
declare all globals in one place by us- 
ing the C preprocessor, however, 
thereby making globals easy to track 
and document. Let’s say you have 
three modules: testmain.c, test1.c, 
and test2.c. The main( ) subroutine is 
in testmain.c, which also includes the 
following statements: 





#define ALLOCATE 
#include ‘‘testmain.h’’ 


Other files may include testmain.h, 
but none of these other files includes 
the #define ALLOCATE—that's in test- 
main.c. Testmain.h holds all global 
definitions and declarations and 
looks like this: 


#ifdef ALLOCATE 
#define GLOBAL 

#else 

#define GLOBAL extern 
#endif 

GLOBAL int glob1; 
GLOBAL int  glob2; 


GLOBAL struct 
{ 
mtx, ¥,Z 


} 


world; 


When you compile testmain.c, GLOB- 
AL expands to nothing and the vari- 
ables are defined (space is allocated 
for them). In all other modules, be- 
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cause ALLOCATE isn’t #defined, GLOB- 
AL expands to the keyword extern 
and variables are declared. 

“T don’t think this approach is any- 
thing new, but so few programs 
take advantage of this technique.”’ 

Michael’s correct in thinking that 
the technique’s not new, but it’s cer- 
tainly useful at times. When you use 
it, however, be careful of static initia- 
lizers, which can’t be used in extern 
statements. A good solution is to use 
the variant of the D( ) macro I dis- 
cussed a few months ago: 


#ifdef ALLOCATE 
#define INIT(x) ={ x} 
#define GLOBAL 

#else 

#define INIT(x) 

#define GLOBAL extern 
#endif 


GLOBAL int x{[ ] INIT(1, 2, 3, 4); 
GLOBAL char *y[ } INIT( “quick’, 
"prown’, “fox” ); 


As before, if ALLOCATE isn’t #defined 
then the initializations aren't com- 
piled. When ALLOCATE is #defined, 


int xi] ={ 1,2, 3,4}; 
char *y[ ] ={ quick”, "brown’”, "fox” 


}; 


You may need two INIT definitions 
because some compilers won't ac- 
cept curly braces around single ob- 
jects, as in: 


int z= {1}; 
Use: 


#define INIT2(x) = x 


Finally you can use a general-pur- 
pose initialization macro that in- 
cludes all the brackets and equal 
signs with it: 


#if def ALLOCATE 
#define INIT\(x) x 
#else 

#define INIT 
#endit 


You can then say: 


o 


GLOBAL x{ ] INIT(={1,2,3}); 









CGRest 
(continued from page 137) 


\r—sends the cursor up one line. 


\t—a nonexpanded tab character 
(Ctrl-D. Like a \a, it will make it all the 
way to the output without being ex- 
panded by the tab-processing 
routines. 














\u—sends the cursor up half a line. 





\xDD— gets binary information to the 
printer. DD is two hex digits (two are 
required). For example, an ASCII es- 
cape character can be sent to the 
printer with a \x1b. 


\zc—says that c is a zero-width char- 
acter. For example, 4 can be printed 
with \z “a. 


\/, \} form a block in an .if, .ie, or .el. 
For example, in: 
if (\nx ) \{\ 

.In +10 
e101} 
both the .in and .ti are executed if \nx 
contains a nonzero number. The \f{ 
and \} are supported primarily for 
nroff compatibility. The nr com- 
mands .{ and .} tend to be more 
readable: 
af (\r).f 
.In +10 
a ID 


J} 


Availability 
The February, March, and April 1987 
C Chests have been combined in Nr: 
An Nroff-Like Text Processor for MS- 
DOS. This reprint is available with a 
source-code disk for $29.95. Send pre- 
paid orders to M&T Books, 501 Gal- 
veston Dr., Redwood City, CA 94063 
or call (415) 366-3600, extension 216. 
Please add $2.25 for shipping and 
handling ($5 for foreign orders). 






































Missing Subroutines 
The subroutines newsample(), run- 
ning_mean(), and deviation() were 
referenced in February but will be 
published in the May listings. The 
ferr() subroutine was referenced in 
February and published in March 
(page 48). The err() subroutine is just 
ferr() without the exit() call. 
DDJ 
(Listings begin on page 84.) 
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~~) POWER TOOLS for — 
t 
1 SYSTEM BUILDERS™  Califoria: 1-800-368-7600 





TSF is owned and operated 
by programmers, so we under- 
stand your needs. We believe 
and practice integrity in all busi- 
ness dealings. We advertise 
real prices and offer our best 
terms to all customers. We 
provide prompt delivery of 
Current product versions. 


We accept checks, Visa, 
MasterCard, American Express 
and COD. We charge your 
card only when we ship and do _—_ 649 Mission Street 
not add a surcharge. We pro- _—_San Francisco, CA 94105 
vide free UPS delivery on “o> moruill 

-800-543-6277 (U.S.) 
software orders over $100 ($3 1-800-368-7600 (Calif.) 
delivery charge for small Ask for operator 2053 on toll free calls 
orders). Our COD fee is $4. 
We allow return privileges on 
most products. 





Harvard Prof'l Publisher ($695) $549 
Polaris Res. Printmerge ($149) $127 


Microsoft Quick Basic (List $99) $65 Microsoft Pascal (List $300) $200 § VS Fontgen ($250) $215 
MicroHelp Inside Track ($65) $55 Blaise View Manger (List $275) $197 [| VS Fonts ($40 - $160) $35 - $140 
MicroHelp Mach 2 (List $75) $60 Blaise Async Manager ($175) $125 


MicroHelp Stay-Res (List $95) $75 Blaise Pascal Tools 1+2 ($175) $125 
MicroHelp Stay-Res EMS ($145) $115 
Sterling Castle Tools (List $99) $80 


Turbo Pascal BCD & 8087 ($100) $65 

Software Channels Alice ($95) $70 om 
Datalight C Developer (List$99) $75  Kydor Symbolic Debugger ($49) $40 [| ©xPands Basic's horizons with window 
Datalight Optimum C (List$150) $120 Turbo Power TDebug+ (list$60) $48 [| Management, input editing, array 


Microsoft C w/Codeview ($450) $270 — Turbo Power Extender ($85) $68 ff Sorting and print formatting. It also 
Guidelines C++ (List $195) $175 Blaise Turbo Async ($100) $80 jf Provides MSDOS/BIOS function calls 
Lattice C (List $500) $270 —_ Blaise Power Tools+ ($100) $80 and allows you to break the 64K data 
Mark Williams C (List $500) $290 Borland Turbo Editor (List $70) $42 [§ Darrier. Written in assembler for high 
Rational Instant C (List$495) $375 performance. For Bascom, Quick 
Gimple C-Terp (List $300) $224 Basic , BASICA and GWBASIC. (List 
Run/C Professional (List $250) $160 $75) 

Run/C Interpreter (List $120) $85 Custom Software PC/VI ($149) $119 

Gimpel PC Lint (List $139) $103 MKS Toolkit (List $139) $115 

Softcraft Btrieve (List $245) $190 Aldebaran Source Print ($75) $60 

Lattice dBase Ill Intfe ($250) $175 Periscope | (List $295) $225 

Blaise View Manager (List $275) $197 Periscope II (List $145) $108 

Creative VitaminC (List$225) $155 Phoenix Plink+ (List $495) $315 

Creative VC Screen (List $100) $77 Phoenix Pfinish (List $395) $225 provides _ back- 
Vermont Window for Data ($295) $259 © Phoenix Pfix86+ (List $395) $225 ground file transfers and e-mail for 
Lattice Curses (List $125) $90 Polytron Make (LIst $99) $72 your PC. Incoming and outgoing calls 


Essentials C Essentials ($100) $80 Quilt SRMS + Qmake (List $199) $165 are processed automatically while you 
Essentails Graphics (List $250) $195 Seidl SVM + SMK (List $380) $330 continue with your normal work. 


Blaise C Tools+ (List $175) $125 Dan Bricklin's Demo (List $75) $68 Outgoing calls can be scheduled to 
Essentials Utility (List $185) $130 Opt-Tech Sort (List $149) $126 take advantage of late night phone 
Greenleaf Functions (List$185) $130 Borland Turbo Prolog (List $99) $65 rates and to concentrate messages in 
Greenleaf Comm (List $185) $130 Microsoft MASM (List $150) $98 a multi-node RamNet network. (List 


Blaise Async Manager ($175) $125 Microsoft Fortran (List $350) $200 $149) 
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COLUMNS 





| _aianpea begins with peo- 
ple and their problems: a good 
program is a sound solution that the 
user likes. The initial problem in pro- 
gramming is not communicating 
with the machine but with the client. 
Discovering what the client wants 
and—more important—what the cli- 
ent needs, helping the client under- 
stand trade-offs and alternatives, and 
in general learning enough about the 
client and his or her relationship 
with the problem so that the pro- 
gram is born with the greatest 
chance of success—all this requires 
techniques that do not fold neatly 
into algorithms. 

Programmers sometimes come to 
grief not because of their lack of tech- 
nical skills with the hardware and 
the software but because of misun- 
derstandings and imperfect compro- 
mises with the people involved. 

You might be interested in two 
books that seem particularly interest- 
ing and helpful in extending skills in 
the people direction. The first is Get- 
ting to Yes, by Roger Fisher and Wil- 
liam Ury (Boston: Houghton Mifflin, 
1981). This is the only book on negoti- 
ation I have seen that describes a 
method instead of offering only a 
potpourri of unrelated tactics. Not 
only does it provide a method but it 
also gives a rationale that demon- 
strates both the effectiveness and the 
legitimacy of the techniques. 

Negotiation is a primary people 
skill in programming. Who has not 
encountered a client whose desires 


exceed the budget or whose whims 


by Michael Ham 


overburden the hardware? The pro- 
grammer often must tactfully devise 
and suggest practical alternatives to 
wishful thinking and then negotiate 
for their acceptance. The unprofes- 





© 1986 by Michael Ham. All rights 
reserved. 
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sional programmer's approach is ei- 
ther to do slavishly whatever the cli- 
ent asks, however inefficient or 
dubious, or to implement the pro- 
grammer’s own ideas, arrogantly ig- 
noring the wishes of the client. The 
professional, on the other hand, rec- 
ognizes the importance of educating 
the client and negotiating a sound so- 
lution. 

Besides negotiating on the techni- 
cal aspects, programmers (particular- 
ly freelance programmers, whose 
every job involves a contract) must be 
competent at blunt business negotia- 
tion. Getting to Yes is as close to a com- 
plete manual of negotiation as you 
can get, with application in every 
area of negotiating. 

The key to successful client rela- 
tions involves more than a sound 
technical solution in the context of a 
well-negotiated agreement. The rela- 
tionship is woven from a myriad of 
daily exchanges, with the resulting 
fabric called cooperation. The Evolu- 
tion of Cooperation, by Robert Axel- 
rod (New York: Basic Books, 1984) 
provides a computer context for this 
elemental mode of human exchange. 

The book describes two tourna- 
ments in which programs were de- 
veloped to play out strategies of coop- 
eration (or noncooperation) in a 
prisoners’ dilemma situation: in 
which mutual betrayal gets nothing, 
but one betrayal gains significant ad- 
vantage over mutual cooperation 
and being betrayed gets nothing or 
little. The explorations are intrigu- 
ing. You cannot push too far the so- 
cial analogies of computer strategies, 
but playing with the ideas is at least 
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People in Programming 


stimulating, especially since the strat- 
egy that won the two tournaments 
has a long and honorable history. 


Number Input 

In my inaugural column (July 1986), I 
proposed a number-input word to 
collect numbers calculator-style, dis- 
playing appropriate punctuation, tol- 
erating normal user errors, and giv- 
ing the programmer control over the 
number of digits that can be entered 
before and after the decimal point. 

Other languages (notably C) come 
provided with a toolbox already 
stocked with useful routines such as 
number input. Forth instead offers to 
its programmers the elements from 
which they can build tools. Over 
time, Forth programmers accumu- 
late a collection of handmade tools, 
often beautifully worked to fit pre- 
cisely the special nature of their par- 
ticular applications. Moreover, be- 
cause he or she built the tool, the 
programmer understands exactly 
not only what it does but also how it 
does it—the limitations and the 
strengths—and can readily modify 
the tool to fit any mutation of the 
original situation. 

The drawback to Forth’s approach 
is that building and polishing the 
tools take time. Sometimes it would 
be nice to take a close-enough solu- 
tion off the shelf instead of fashion- 
ing the perfect fit to the specific prob- 
lem. One source of such solutions is 
the set of modules written in other 
languages—C or FORTRAN, for exam- 
ple—that have a store of existing 
tools. Laboratory Microsystems has 
recently published a Forth, which it 
calls UR/Forth, that can be linked to 
such alien modules. 

Another approach is to augment 
your collection of software tools by 
reading (and adapting) published 
tools. Here I discuss my current solu- 
tion to the common problem of col- 
lecting a number from the key- 
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TALK OF THE TOWN 


OT THE Taleler-le[-B-10 le) lolatmultmeco livia ave 
Mi at-\aifelale|Ur-\e [om lom ar-tover- | e-em alo) me) amas 
PC and producing the fastest, most 
(ore) an] ey- (ej mexele(=m-\Vs-l|t-10)(>e me) mtals 

le) co)i=sctsj(e)ar-Um e)aeleleslpnlaatsemiaarclelialemdarell 
NfolUmer-lae(eM Vital calicm ele) '\(216 

Cut execution time by 20% to 200% 
) Transport MS-DOS programs to VAX, 
a D) a eel ale oto1010 Om aar-(evaliai-omuiitamelaliy 
minor adjustments ! Cut executable 
program size by up to 50% ! Use all of 
DOS-addressable memory through 
efficient large-memory model ™ Speed 
=] dco) mere) ac -reit(e)alr-lalemct-\oMelo\V/2)16) e)gaicyal 
turn-around time with sophisticated error 
fol al-re1 diate m= (gle mec) ele)atiale mm mtlalem-lale mip 
logical errors with the interactive source- 
level debugger '» Access DOS services 


Pascal-2. 


FOR MS-DOS 


rane 


barat 


Hiern 
Wee ew * 
\ attach 





and network files ~ Call Microsoft 
FORTRAN, C, Pascal, and assembler 

i lelele-\ol-micolsamAOlni=\On er-tser-lai vita 

oFo} an) exelile)(<mcitalale ommsxe [8] \’Zolicial a elgelersyel0| rors 
and access to TURBO graphics. 

Plus! 

= Intel CEL87 mathematical library for 
scientific computing ® A special interface 
between Pascal-2 and the programmable 
BRIEF text editor (editor optional). 

= Certified ISO standard Level 1. 
Dramatically improve your productivity 
late ialigete|ele-m'olll a a Om-ye)aar-14-) 

Com ial-m 7-0 @al-> amelele) a 

Call or write OREGON SOFTWARE, INC. 
6915 SW Macadam Avenue, 

a0) (t= 10(0 PO) RoW Aa to (21010) lo ¥ ys 0) 

TWX: 910-464-4779 FAX: (503) 245-8449 






Z SO) MAAN Ne 


Real tools for real work 


ie ye ee, ee oe ee 2 a 


The following are trademarks: Oregon Software, Pascal-2, Oregon Software, Inc.; IBM, PC-AT, PC-DOS International Business Machines Corporation; Intel, Intel Corporation; 
MS, Microsoft Corp.; TURBO Pascal, Borland International, Inc.; BRIEF, UnderWare Corp.; PDP, VAX, Digital Equipment Corp. 
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C & PASCAL 
PROGRAMMERS 


Blaise Computing provides a broad range of pro- 
gramming tools for Pascal and C programmers, 
with libraries designed for serious software 
development. You get carefully crafted code 
that can be easily modified to grow with your 
changing needs. Our packages are shipped com- 
plete with comprehensive manuals, sample pro- 
grams and source code. 


C TOOLS PLUS 
$175.00 


NEW! Full spectrum of general-purpose utility 
functions; windows that can be stacked, re- 
moved, and accept user input; interrupt serv- 
ice routines for resident applications; screen 
handling including EGA 43-line text mode.sup- 
port and direct screen access; string functions; 
and DOS file handling. 


PASCAL TOOLS/TOOLS 2 
$175.00 


Expanded string and screen handling; graphics 
routines; easy creation of program interfaces; 
memory management; general program con- 
trol; and DOS file support. 


VIEW MANAGER 
$275.00 


Complete screen management; paint data entry 
screens; screens can be managed by your appli- 
cation program; block mode data entry or field- 
by-field control. Specify C or IBM/MS-Pascal. 


ASYNCH MANAGER 
$175.00 


Full featured asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; baud rates up to 9600; modem 
control and XMODEM file transfer. Specify C or 
IBM/MS-Pascal. 


Turbo POWER TOOLS PLUS 
$99.95 


NEW! Expanded string support; extended 
screen and window management including EGA 
support; pop-up menus; memory management; 
execute any program from within Turbo Pascal; 
interrupt service routine support allowing you 
to write memory resident programs; schedul- 
able intervention code. 


Turbo ASYNCH PLUS 
$99.95 


Complete asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; and baud rates up to 9600. 


RUNOFF 
$49.95 


NEW! Text formatter written especially for pro- 
grammers; flexible printer control; user-defined 
variables; index generation; and general macro 
facility. Crafted in Turbo Pascal. 


EXEC 
$95.00 


Program chaining executive. Chain one pro- 
gram from another even if the programs are in 
different languages. Shared data areas can be 
specified. 


ORDER TOLL-FREE 800-227-8087! 


rN 
ee a ee 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 
RT SS ELS EEE SEER TR TG RE DEC FS SES ES 
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STRUCTURED PROGRAMMING 
(continued from page 140) 


board—the word DIGITS (see Listing 
One, page 118). This word leaves two 
numbers on the stack—the number 
entered (as a signed double-precision 
number) and above it the count of the 
digits entered. Decimal fractions are 
scaled to integers, and the decimal 
display is merely cosmetic—for ex- 
ample, the number displayed as 
0.0023 is in fact stored as a double- 
precision 23. 

The count of digits distinguishes an 
entered 0 from the 0 that results from 
no entry. ‘‘No entry” results from the 
user pressing Return when the entry 
field is blank. I designed “no entry’ to 
leave a double-precision 0 on the 
stack because I like my general-use 
tools to leave the same number of ar- 
guments under all conditions. 

The count of digits has some other 
uses. If the count is less than 5, for 
example, the entered number is less 
than 10,000 and thus the top cell of 
the double-precision number will be 
0, which can be dropped to leave a 
single-precision version of the entry. 

Most of the complexities in the 
word are because of various special 
cases. Each of the following revealed 
a bug during the development of 
DIGITS: 


¢ pressing a clear-entry key (C or B or 
the space bar) when the entry is al- 
ready clear 

¢starting with an old number equal 
to 0 

¢having fewer nonzero digits in the 
number than the number of decimal 
places entered 


When you start with an old num- 
ber of 0, the single 0 digit must not be 
counted as you begin to enter num- 
bers. If it is counted, you will be able 
to enter at most one fewer digits than 
you should because the keystroke 
count routine will be initialized to 
count what is in effect a leading 0: the 
0 that was the old number. 

The number of nonzero digits in 
the number can be less than the num- 
ber of decimal places entered (for ex- 
ample, 0.0023 has four decimal places 
entered but is represented as the two- 
digit number 23). The difference be- 
tween the number of digits in the 
number and the number of digits to 


the right of the decimal can thus be 
negative. It is for this reason that you 
see 0 MAX in computing the number 
of commas. 

Another minor complexity results 
from the incomplete complement of 
double-precision operators provided 
by most Forths. My January column 
suggested a naming scheme for arith- 
metic operators. In terms of those 
names, this application could use the 
two operators M*D (a double and a 
single factor, single on top, giving a 
double product ) and M/D (a double 
dividend, a single divisor, and a dou- 
ble quotient). The pair D* (two dou- 
bles as factors with a double product) 
and D/ (a double dividend and a dou- 
ble divisor giving a double quotient) 
would serve equally well. 

With MD (or D* the routine could 
accumulate the number as a double: 
each time a digit is entered, the num- 
ber so far entered would be multi- 
plied by 10 and the new digit added. 
With M/D (or D/ the backspace 
would be easy to implement by divid- 
ing the number so far accumulated 
by 10 to strip off the last digit entered. 

One approach is to write defini- 
tions for these operators. I use an al- 
ternate route: I accumulate the num- 
ber as a string of ASCII characters and 
use CONVERT whenever I want the 
value of the number. 

I'll briefly discuss the code, but let 
me first point out that Ido some arith- 
metic with the flags. Deplorable as 
the practice may be, I find it irresist- 
ible. The important thing for you to 
know is that these are 83 Standard 
flags, in which true is shown by —1 
(all bits on), unlike the 79 Standard 
true, which is 1. Thus I use the (83 
Standard) flag to decrement or (after 
negating it) to increment a count. The 
sign must be reversed if you are using 
79 Standard flags. 

This code may be more complex 
than necessary: simplicity is not easi- 
ly achieved. The code does, however, 
get the job done, and the response 
time (on an IBM PO) is totally adequate. 
Share with me any simplifications 
you discover. 

The first few definitions are tiny 
tools. You will note that the words to 
turn the cursor on and off are vendor 
dependent, and you should check 
with your own Forth for this type of 
control. Some Forths automatically 
extinguish the cursor when KEY is ex- 
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ecuted; this was written in Labora- 
tory Microsystem’s PC/Forth, which 
does not. I use —CUR to turn the cur- 
sor off, +CUR to turn it back on. 

The function of the phrase 8 EMIT 
is also vendor dependent: some 
Forths execute a backspace, some dis--| 
play a character. So you may have to 
revise the definition of BACK to make 
it work as intended: to backspace the 
cursor as many positions as specified 
by the number on the stack. 

Some definitions, such as NEW and 
OLD and Bs? and Cr?, are nonce 
words to improve the readability of 
the code, always an important objec- 
tive. As usual, I prefer short defini- 
tions based on normal English usage. 
In my eyes, playfulness is more an 
asset than a detriment, provided that 
the word’s name reflects its effect. 

Control of the sound generator is 
also vendor dependent. In the defini- 
tion of BELL, the stack holds numbers 
that define the pitch and the dura- 
tion. I prefer a short beep. The vari- 
able SOUND. provides an easy on/off 
control for beeping. 

Because PAD was occupied with 
other tasks, I created a separate work 
area for the number being entered. 
This work area, #PAD, will contain 
the string of ASCII characters that rep- 
resent the number. 

#VAR is an array in which I name 
each cell using a constant. The con- 
stant, returning the address that is its 
value, acts as a variable name. Some 
naming conventions are apparent: a 
name ending with ~ is a Boolean 
variable; a named prefixed with *ini- 
tializes an array or variable by setting 
it to zero. (I read *as “‘zap.”’) 

The words that collect and edit the 
character typed have some points of 
interest. You will note that FIXUP con- 
verts B or blank to C. C clears the dis- 
play, and B and blank become syn- 
onyms. Also, L and O are converted to 
1 and 0, respectively; the user’s inten- 
tion is clear, and overpunctilious pro- 
grams quickly make enemies. 

The word #? checks whether the 
ASCII value is in the range for a deci- 
mal digit. BAD? leaves a flag (denoted 
by the suffix 7) that is true if the entry 
was bad. Because Forth is not typed, I 
can use as a flag the value from #DEC 
(the number of places to the right of 
the decimal). A 0 from 4DEC (that is, 
there are no places to the right of the 
decimal) acts as a false flag; any other 
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STRUCTURED PROGRAMMING 
(continued from page 143) 


value (that is, there are places to the 
right of the decimal) acts as a true 
flag. The decimal point is thus al- 
lowed as a valid character only if 
#DEC is greater than 0. 

The word 4,S computes the num- 
ber of commas required, given the 
number of whole-number digits. If 
the number of whole-number digits 
is a multiple of 3, the computed com- 
ma count is corrected by decrement- 
ing it by 1 (using the 83 Standard true 
flag of —1). The phrase 0 MAX cor- 
rects for those instances in which the 
number of nonzero digits entered mi- 
nus the number of places to the right 
of the decimal is negative, thus pro- 
ducing a negative quotient. 

FULLCNT adjusts the character 
count of the number of digits and 
commas to include the decimal point 
and minus sign (if they are allowed). 
BOXSIZE uses this word to calculate 
from the number of digits being col- 
lected how large a box will be need- 
ed: as many spaces as the maximum 


DA 
£#EDOA 


number of printable characters, plus 
one space at either end of the box. 
Because the inverse video on the col- 
or screen clips the edges of some 
characters, I include an extra space at 
the beginning and end of the number 
display. 

BOXSIZE has one tricky aspect: be- 


_ cause I print the leading 0 for decimal 


fractions less than 1 (for example, 
0.0023 instead of .0023), [have toadd 1 
to the character count if I am collect- 
ing such a fraction. I save on the re- 
turn stack the flag that tells me 
whether this is that sort of fraction. 
The flag, after correcting the sign, is 
added to the count. BOX then uses 
BOXSIZE to print an inverse field in 
which the number will be entered. 
One peculiarity in number entry is 
that some data must be displayed be- 
fore any number has been entered at 
all: the minus sign and the decimal 
point could be the first two key- 
strokes, and when those are entered, 
there is still no number to edit. The 
word —. displays these characters. 
You will note, by the way, that the 
minus key works as a toggle so that 
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the minus sign can be entered or al- 
tered at any time during number 
entry. 

PUT# prepares the accumulated 
number for display, leaving on the 
stack the address and count of the 
string, which is then displayed in DIS- 
PLAY*%, ?DO is found in most Forths: it 
executes the loop only if the two ar- 
guments are unequal. If your Forth 
lacks ?DO, you can substitute 2DUP = 
IF 2DROP ELSE DO for it and follow 
LOOP by THEN. 

When number entry is complete, 
the number is left on the stack with 
any decimal fractions scaled up to an 
integer value. It is the programmer's 
responsibility to make sure that the 
size of the entries allowed (total num- 
ber of digits, number of decimal 
places) will result in a number that 
will fit within the bounds of a double- 
precision number after scaling. 

SCALE takes care of the situation 
in which the user did not enter all the 
fractional digits allowed. If the entry 
parameters allowed for thousandths 
(three fractional digits), for example, 
and the user pressed Return before 
entering a decimal point (or any dig- 
its after it), SCALE* will multiply the 
entered number by 10 three times in 
order to force the three fractional 
digits (Os in this case). The word 10D* 
fakes a double-precision multiply by 
10; 

The count adjustments in the next 
group take care of decrements re- 
quired when backspacing (deleting 
digits). The words WHOLE-CK and DEC- 
CK check the limits imposed by the 
programmer on the number of digits 
that can be entered as whole number 
digits and the number of digits that 
can be entered as fractional digits. At- 
tempts to transcend the program- 
mer-imposed limit are rejected. 

SET-NEG sets the negative variable 
when an old number is entered. Note 
that the number is accumulated as a 
positive number, with the actual sign 
indicated by the variable NEG~. 

DSET sets up everything to start the 
loop and leaves on the stack the loop 
limits and the number of digits to col- 
lect. When you are collecting a new 
number, the loop limits are m+1 
(one more than the number of digits 
to collect) and 0, but if the routine 
starts with a number already en- 
tered, then the limits are adjusted ap- 
propriately. The upper limit is m+1 
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because the user must be able to en- 
ter one more keystroke than the 
number of digits to collect. Typically 
that one additional keystroke will be 
a Return, but it might be a backspace. 
Any other final keystroke is rejected. 

Because the topmost word DIGITS is 
so complex, I wanted to factor out 
some subroutines to improve read- 
ability and comprehensibility (and 
therefore debugging). But then I had 
to be able to access the index value 
from a word outside the loop. The 
simplest solution was to store the in- 
dex value into a variable and define 
the word “7” to fetch the variable’s 
value. This would have been a natu- 
ral place for a QUAN, but most Forths 
don't have them. 

You will note that DIGITS is a 
DO... +LOOP structure. This struc- 
ture seemed the easiest way to move 
back (backspacing) and forth (enter- 
ing a valid character) in the entry or 
just to remain in place (attempting to 
enter an invalid character): by hav- 
ing the index increment be negative, 
positive, or 0, respectively. 

The backspace routine, by the 
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way, has to keep track of whether 
the backspace is over a digit, the deci- 
mal point, or the minus sign, or disal- 
lowed because no valid character has 
yet been entered to backspace over. 
The variety of situations tends to 
complicate the definition. BSP-ROU 
leaves the appropriate increment to 
the loop index. When this is the nega- 
tive of the current index value, the 
loop returns to its starting point. 

DIGITS keeps on the stack the num- 
ber of digits to be entered because 
that number is periodically refer- 
enced. It would perhaps have been 
cleaner to park that number inside 
one of the pseudovariables that make 
up “VAR, but by the time the idea oc- 
curred to me, the routine was al- 
ready working. Once the routine was 
working, I was disinclined to toy 
with it. 

I suggest that, as an exercise, you 
modify the routine so that it stashes 
the number of digits to be entered 
into an additional cell in #VAR, 
whence it is fetched when needed. 
When you have the revised routine 
working once more, you should have 
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COLUMNS 


ARTIFICIAL INTELLIGENCE 


Object-Oriented Programming in AI 


his month I continue the 

theme of object-oriented LISPs 
by focusing on three object-oriented 
extensions to Common LISP: Object- 
LISP, New Flavors, and Common- 
Loops. Although it is unlikely that 
any of these precise implementations 
will become a standard, any such 
standard will probably combine fea- 
tures of all three. 


ObjectLISP 

ObjectLISP is the candidate for an ob- 
ject-oriented extension to Common 
LISP that was offered by LISP Ma- 
chines. Although it does not now look 
as though it will provide a substantial 
part of the standard currently being 
defined, it is a relatively easy system 
to understand and has several com- 
mendable features. One of the dis- 
tinctive features of the ObjectLIsP ap- 


proach is eliminating any special | 


syntax for message sending so that 
object-oriented methods are invoked 
with essentially the same syntax as 
any Common LISP function. Another 
important feature is that ObjectLIspP 
departs from most other object-ori- 
ented systems by deliberately mak- 
ing the relation of a class to a subclass 
the same as the relation of a class to 
an instance. What this means on the 
implementation level is that the nest- 
ing of closures is used for both spe- 
cializing and instantiating classes. 
When combined, as they are in Ob- 
jectLISP, these two features result in a 
simple and streamlined system so 
that class variables, class functions, 
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instance variables, and instance func- 
tions all exhibit the same basic behav- 
ior. One of the byproducts of not dif- 
ferentiating between an instance and 
a class is that, during development, 
you Can use a class as a prototype in- 
stance or an instance as a prototype 
class. 





ObjectLISP also has the convenient 
feature, often not present in object- 
oriented systems, of allowing the dy- 
namic creation and modification of 
objects on the fly, as it were, while 
programs are running. Also, all in- 
heritance operates dynamically. This 
means that changes in the state of a 
superclass of an object that are inher- 
itable will do so right when the 
changes occur. 

The basic ObjectLISP system is 
based on five primitive functions: 
make-obj, kindof, ask, have, and def. 
obfun. Creating an object can be as 
simple as writing: 


(setq business (make-obj)) 


Frequently, though, the object will 
be a specialized version of another 
object that already exists. In this case, 
an object is created with something 
such as: 


(setq wholesaler (kindof business)) 


The ask function is used to evaluate a 
Common LISP expression in a particu- 
lar object’s environment. The have 
function creates variable bindings 
that are local to objects. These func- 
tions are usually used together in Ob- 
jectLISP to declare class variables and 
instance variables. This could be 
done for the business object just cre- 
ated like this: 


(ask business (have 'type-of-activity 
‘economic)) 


This can then be checked to make 
sure it has been accepted by the sys- 
tem. If you do so, the terminal screen 
might read: 


(ask business type-of-activity) 
economic 


The defobfun function is used to de- 
fine Common LISP functions that are 
bound or assigned only to a particu- 
lar object or class of objects. Continu- 
ing with the example I have been us- 
ing, I might say: 


(defobfun (calc-net-gain business) 
(gross-sales costs) 
(setq net-gain (- gross-sales total-costs))) 


The ObjectLISP syntax for calling 
such a function can be illustrated by: 


(ask business (calc-net-gain 500 300)) 


Another important capability of 
ObjectLIsP is the ability to create shad- 
owed functions. This is a way in 
which the inherited functions can be 
used to create more specific versions 
of the function for more specialized 
objects. In many cases, the way this 
can be done efficiently is by adding 
only the more specialized parts and 
then making a call to the inherited 
function. 

Although there is no real differ- 
ence between an instance and a sub- 
class in ObjectLIsP, in practice it is 
convenient to have a way of using an 
object as a template for creating 
other instances of it. One way of do- 
ing this is to define an exist function 
for that object as shown in Example 
1, page 147. With exist functions of 
this kind, it becomes much easier in 
ObjectLISP to define instances of ob- 
jects. So, for example, you could de- 
fine several business instances as 
follows: 


(setq unicomp (kindof business)) 
(ask unicomp (exist) 


(setq softrend (kindof business)) 


(ask softrend (exist ‘ownership-type 
sole-proprietor)) 
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In ObjectLIsP, an object is really a 
list of frames. The first member of 
the list is its innermost frame, the 
original bindings supplied to it when 
it is created. The remaining elements 
of the list are all the elements that it 
inherits, appearing in the order in 
which it inherits them. 

Multiple inheritance in ObjectLISP 
is accomplished by supplying multi- 
ple arguments to the kindof function. 
So, for example, if you have also de- 
fined an object called adversary, 
then you could define a class called 
competitor using multiple inheri- 
tance as follows: 


(setq competitor (kindof business 
adversary)) 


At this point, ObjectLISP does not ap- 
pear to be one of the winning con- 
tenders for the standard, partly be- 
cause it uses dynamic binding but also 
because it is a new approach that still 
has not been tried and proven for any 
appreciable time. Because there are 
still some difficult and controversial 
issues in object-oriented LISP, I think 
that some of the aspects of ObjectLISP, 
particularly the placing of classes and 
instances on a common footing and 
the ability to modify objects on the fly, 
deserve some serious consideration. 


Old and New Flavors 

As I said in my last column, the origi- 
nal Symbolics Flavors system was the 
first commercial object-oriented ex- 
tension to LISP to gain relatively wide- 
spread popularity and to prove the 





(defobfun (exist business) 





(mame 'no-name-yet) 
(location 'no-location-yet) 
(industry 'no-industry-yet) 


(business-type 
(size 'no-size-yet) 
 (year-founded 


(market-share 
€éallow-other-keys) 

(have 'name name 

‘location location 

‘industry industry 
"'business-type business-type 
'size size 

'year-founded year-founded 


(apply 'shadowed-exist args) 
}) 


Example 1: Defining an exist function in 
ObjectLIsP 
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‘no-bus-type-yet) 
"no-year-founded-yet) 


(ownership-type 'no-ownership-type-yet). 
"no-market-share-yet ) 


‘ownership-type ownership-type 


extreme value of object-oriented LISP 
in practice. The latest software re- 
lease for the Symbolics 3600 series 
machines, Genera Release 7.0, now 
includes New Flavors, the candidate 
from Symbolics for the object-orient- 
ed standard for Common LISP. Sym- 
bolics Flavors grew out of the Flavors 
system developed by the MIT LISP Ma- 
chine group back in 1979. By 1981, 
the Symbolics software group had 
developed a more efficient Flavors 
system, an object-oriented system 
that has come to be a favored pro- 
gramming approach both for much 
of the in-house systems program- 
ming at Symbolics and for numerous 
Al projects carried out by users. 

New Flavors represents an attempt 
to overcome some of the weaknesses 
encountered by users of the Symbo- 
lics Flavors system during the five 
years of its existence. David A. Moon 
of Symbolics recently outlined the 
main goals of New Flavors as follows: 


*to encourage greater program 
modularity 

¢to facilitate writing large, complex 
programs 

*to provide favorable run-time 
performance 

¢ to maintain downward compatibili- 
ty with old Flavors 


Like the original Flavors, New Fla- 
vors uses the defflavor, defmethod, 
and make-instance functions for cre- 
ating objects and procedures. The 
way the example introduced in the 
discussion of ObjectLISP would be 










year-founded 









(setq unicomp 






:name 
:location 
:industry 









:size 
:year-founded 








:market-share 







sales costs) 





New Flavors 





(defflavor business oS 
(name location industry busin 


ownership-type market-share) () 
:readable-instance-variables 
:writable-instance-variables 

: inittable-instance-variables) 


(make-instance ‘business 


:business-type 


:ownership-type 


(defmethod (calc-net-gain business) 
(- gross-sales costs) ) 


coded in New Flavors is shown in Ex- 
ample 2, below. 

One of the central ideas in New Fla- 
vors is the notion of generic func- 
tions. The main point of this is to al- 
low distributed definition of 
functions as well as multiple inheri- 
tance of properties. This means both 
having the same name for a method 
that varies depending upon the class 
to which it is bound and being able to 
use parts of code from various differ- 
ent objects. Toward this end, the def- 
generic function has been provided. 

In New Flavors, generic functions 
have the same syntax as do nonge- 
neric functions. This has the advan- 
tage that any function that is a caller 
of another function does not need to 
know which to specify. Other advan- 
tages are that all debugging and utili- 
ty functions designed to work with 
ordinary Common LISP functions can 
also work with generics. 

New Flavors has adopted a clear set 
of rules for ordering flavor object 
components. Components are all 
parts of an object, both those declared 
directly and those that are inherited. 
The three rules that are followed are: 


¢The flavor’s own binding always 
precedes those of its components. 

¢ The local order of components of fla- 
vors always adopts the order stipulat- 
ed in the defflavor declarations. 

e All duplicate flavors are automatical- 
ly removed from the sequence. 


Method Combination 
As I’ve mentioned before, Flavors 
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Example 2: Creating objects and procedures with 


147 


ARTIFICIAL INTELLIGENCE 
(continued from page 147) 


was the first object-oriented system 
to provide the form of abstraction 
that allowed different parts of the 
code for functions to be mixed in 
modular fashion just as complete 
methods and variables may be inher- 
ited. Various built-in combination 
methods are provided for this pur- 
pose. So, for example, programmers 
can choose between such method- 
combination modes as: 


* calling only the most specific meth- 
od available in the hierarchy 

¢ calling all the methods in order of 
specificity, either upward or 
downward 

¢ trying each method in turn, starting 
with the most specialized, until one is 
found that does not return nil 


There are also several other built-in 
combination-method modes. 

In addition to defining new meth- 
ods and selecting built-in combina- 
tion-method types, programmers 
can also define new combination 
methods using the define-method- 
combination and define-simple- 
method-combination functions. 


Development Tools 

New Flavors provides various facili- 
ties for inspecting the current state of 
an object-oriented system under de- 
velopment. You can either invoke 
them by entering commands or by 
pointing the mouse at the names of 
various items on the display. So, for 
example, you can view either the 
subclasses or superclasses of a cur- 


Example 3: The hierarchy of 
CommonLoops’ built-in 





rent flavor, and you can view all the 
instances of a given flavor that are 
currently alive. These are some of 
the really useful facilities that an ob- 
ject-oriented system needs if it is to be 
used for serious AI applications. De- 
spite its lush user environment, some 
of these features are absent even in 
Smalltalk. 


CommonLoops 

The object-oriented extension that 
has been developed at Xerox PARC 
has several definite goals and key 
concepts. It is not surprising that, of 
all the systems discussed here, it has 
the most in common with Smalltalk 
because the amount of expertise pre- 
sent at Xerox with this type of object- 
oriented system is still considerable. 
But CommonLoops also represents a 
departure from Smalltalk in that it of- 
fers a clear philosophical vision of 
how object-oriented programming 
can be fitted most naturally into the 
Common LISP dialect and in a way 
that preserves the greatest amount of 
generality. It is therefore intended to 
provide a basis for as many as possi- 
ble of the serious approaches to ob- 
ject-oriented AI. One of the stated 
goals of CommonLoops was to pro- 
vide a general kernel, written in 
Common LISP, from which any of the 
major object-oriented systems in use 
today, such as Flavors, Smalltalk-80, 
and Loops, could all be implemented. 
Like Smalltalk, therefore, Common- 
Loops makes use of the metaclass 
protocol to implement its class hier- 
archy system. 


The Kernel 
The direction taken by Common- 


Table 1: Main CommonLoops 
primitives 








Loops is to use an option to the def- 
struct construct in Common LISP in 
order to define classes. The :class op- 
tion to defstruct is employed by Com- 
monLoops to specify the metaclass 
that will be used in the system to de- 
termine how the object-oriented ap- 
proach to be implemented will be- 
have. The standard metaclasses 
provided in CommonLoops are built- 
in-class, structure-class, list-structure- 
class, and vector-structure-class. 

As does Smalltalk, CommonLoops 
has various built-in classes. This 
means that even before a program- 
mer defines any classes, there are al- 
ready various ones present that de- 
scribe the behavior of the system. 
Example 3, below, shows the hierar- 
chy of CommonLoops'’ built-in class- 
es, shown as they might appear in a 
“class browser,’ with the type of 
class represented in parentheses to 
the right. 

Through this hierarchy of meta- 
classes, CommonLoops controls the 
way that the options to defstruct de- 
termine the form of object-oriented 


system that will be present. The 


structure-class, for example, is the de- 
fault class that defstruct uses when 
no :class option is specified. The class- 
es that are then created default to a 
structure that acts like the ordinary 
defstruct in Common LISP. Abstract- 
class is used in the :class option for 
classes that will not themselves be in- 
stantiated but act as placeholders in 
the hierarchy—for example: 


(defstruct (business (:class 
list-structure-class))) 


Table 1, left, gives a list of the main 
CommonLoops primitives. 


Multiple Inheritance 

Specifying inheritance from multi- 
ple classes is accomplished in Com- 
monLoops through an extension of 
the :include option of defstruct to al- 
low it to accept a list of names of class- 
es. Following the same example that I 
have been using to illustrate multiple 
inheritance, the competitor class, 
which inherits from the two parent 
classes business and adversary, 
would be implemented in the follow- 
ing way in CommonLoops: 


(defstruct (competitor (:include 
business adversary))) 
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Introducing TransLISP PLUS ' The Consultant’s LISP 
Over 400 Primitives, a C Interface, and Optional Runtime System 


People call you because you’re an expert. Your customers want to keep up with what’s going on. They want software that is more intelligent 
and responsive, or software that does something that just wasn’t possible before. So they call you. 


Now you can write and deliver a whole new category of software with TransLISP PLUS, a practical, efficient LISP system. You can also 
add Artificial Intelligence to your software. We include several features, like a C Interface and Optional Runtime System, so you can 
control the performance and security of your programs. And your users only need to have a PC (can even be non-compatible) with 320K 
and | floppy drive. Now, what could you write for a $700 PC? . . . or a $7000 PC?... 


Add AI Technologies to 
Your Software 


Most of the programs you write are accessed 
by a user who doesn’t have your expertise. 
Use intelligent interfaces to make your pro- 
grams more responsive to the end user. 

You can even use the C Interface included 
with TransLISP PLUS to customize LISP, or 
combine C functions with LISP programs. 

Take advantage of AI technologies to make 
your programs smarter and more flexible. 


Extensive Development 
Environment 
Over 400 Primitives 


TransLISP PLUS provides you with over 400 
primitives for development, including extras 
for hardware support and operating system 
access. Their spectrum ranges from control 
constructs, macros, and special forms, to 
multi-dimensional arrays, reader support for 
binary, octal, and hex constants, improved 
list processing, and system interrupts. 

DOS commands and applications can be 
invoked from within TransLISP PLUS, as 
can the fast editor. Of course, you can use 
your own editor if you like. 

A variety of debugging tools are provided. 
The trace facility tracks the evaluation of any 
built-in or user-defined function or macro. 

Traceback, Break, Cross Reference, and 
Pretty Printer are also provided to help you 
spot problems. 








Clibraries... Distribute your applications 


MONEY BACK GUARANTEE 


Use TransLISP PLUS to program ‘with and deliver to lots of machines. . . 


The ONLY Full Featured 
Common Lisp with a 
C Language Interface 


The best of both worlds. The interface to 
Microsoft C gives you a powerful extension 
to TransLISP PLUS — now you can write code 
in LISP and C. And you don’t need an AT, 
it will run on your PC! 

The C Interface makes it practical for you 
to write a C program and add it as a new func- 
tion to TransLISP PLUS. Your function can: 

* extend and/or change the LISP syntax 
* be an entire system of programs 

Create your own BUILT-IN primitives which 
are directly tied to the system and called at 
full speed by the interpreter. Extend the 
functionality of your program by including 
features of your own like macros, functions, 
and special forms. 

Code from C libraries produced by other ven- 
dors can be integrated into your program to 
perform tasks not normally part of LISP. 


Use PLUS for Your 
Applications. No Royalties. 


Once you own TransLISP PLUS, you may 
want to use it to distribute applications. No 
problem. 

The Optional TransLISP PLUS Runtime 
supplies you with a special interpreter. You 
can distribute an executable version of your 
program without distributing source code. 

The Runtime is available for $150 and Trans- 
LISP PLUS is required. 





Try TransLISP PLUS ($195) for 30 days — if not 


satisfied get a full refund. 





Don’t Know LISP? 


Get a solid understanding of LISP with the 
comprehensive, easy-to-understand tutorial. 
Each section walks you through a new concept 
and reinforces it with examples — both text 
and online. 

Over 30 demo programs supplement the tuto- 
rial. Use them for an in-depth introduction 
to LISP programming techniques. Commented 
source is included so you can see how and 
why the program operates. 

The demos cover a wide variety of applica- 
tions including: Select a word processor, Read 
dBASE SDF files, Job Counselor, and many, 
many more. 


The Fundamentals 


If you are interested in learning LISP but don’t 
need all the extras in TransLISP PLUS, order 
TransLISP for $95. It’s a full, easy-to-use 
introduction to LISP that includes the tutorial 
and demo programs described above, and over 
300 primitives. 

It is a solid subset of COMMON LISP; and 
you can write programs of up to 12000 lines. 


COMMON LISP Standard 


Programs written carefully with TransLISP PLUS will be completely 
“portable” to any other COMMON LISP system on a micro, mini, 
or mainframe computer. This allows you, for example, to write a 
program with TransLISP PLUS on your PC at home, and compile 
and run it on the VAX at work. 


System Requirements 


TransLISP PLUS requires at least 320K RAM and a 360K disk 
drive. 
TransLISP requires 256K RAM and a 360K disk drive. 


Transl tSe. PLUS)? egscceie ns Ss $195 
WHOQNSGISE oe wales. bx wate $ 95 
Upgrade TransLISP to PLUS ... $158 
TransLISP PLUS Runtime ..... $150 


TO ORDER OR FOR DETAILS CALL 


Tse your existing =] 900-821-2492 


Solution 
Systems " 








335-D Washington Street, Norwell, MA 02061, (617) 659-1571 


Circle no. 148 on reader service card. 
TransLISP and TransLISP PLUS are trademarks of Solution Systems. Solution Systems is a trademark of Solution Systems. 





ARTIFICIAL INTELLIGENCE 
(continued from page 148) 


Multimethods 

One of the most important innova- 
tions in CommonLoops is that of mul- 
timethods—procedures that are, in 
effect, messages sent to any number 
of objects of different types. So in- 
stead of defining the method draw-at: 


(defmethod (rectangle :draw-at) (up- 
per-left-x upper-left-y 

lower-right-x lower-right-y) 
(draw-box upper-left-x upper-left- 
y lower-right-x 

lower-right-y) 


as you would in Flavors, in Common- 
Loops you would write it: 


(defmeth draw-at. 
(r rectangle) (upper-left-x integer) 
upper-left-y integer) 
(lower-right-x integer) (lower- 
right-y integer) 
(draw-box upper-left-x upper- 
left-y lower-right-x 
lower-right-y) 


In this definition, the first argument 
to draw-at isr, which is declared as of 
the class rectangle, and the remaining 
are screen coordinates, all declared 
as of the class integer. 

The implementation of Common- 
Loops is itself fully object-oriented in 
the sense that all data structures used 
to implement the system are objects 
that are instances of a class. So, for ex- 
ample, when a new method is de- 
fined, three new objects are created: 
the method object, the discriminator, 
and the discriminating function. The 
method object is the object that de- 
scribes the method to be created, and 
the discriminating function is an ob- 
ject that selects the method that will 
be called. The discriminator and its 
own methods use the information in 
the method object and its own de- 
scription of a generic function to com- 
pile the code for the method. Generic 
function is used here in the same sense 
as in the discussion of New Flavors. 


Method Combination 

Method combination is accomplished 
in CommonLoops using the run-super 
mechanism. It closely resembles the 
method combination approach used 
in Smalltalk, LOOPS, and ObjectLisP. 
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(LOOPS is an AI development tool used 
at Xerox PARC and will be described in 
detail in a subsequent column.) The 
run-super mechanism is implement- 
ed using the method and discrimina- 
tor object described earlier. Because 
of the use of metaobjects in the imple- 
mentation of method combination, 
many interesting research possibili- 
ties for AI languages are opened up. 
For example, through defining spe- 
cialized method and discriminator ob- 
jects, a means is available for integrat- 
ing logic programming into 
CommonLoops. A prototype for such 
a system, called CommonLog, has 
been implemented at Xerox PARC. It is 
hoped that this will provide the basis 
for a more advanced AI tool called 
Vulcan. (This name was apparently 
not chosen by accident. One of the 
times I called the Intelligent Systems 
Lab at Xerox PARC, the entire staff was 
at the movie theatre to see the debut 
of Star Trek IV). 


Future Directions in 
Object-Oriented LISP 

One of the isues still to be settled by 
the object-oriented LISP community 
and the object-oriented program- 
ming community in general is that of 
the structural vs. the procedural 
view of objects. This is the issue of 
whether the specification or inter- 
face description of classes should be 
purely procedural or split into proce- 
dural and structural parts. If purely 
procedural, an object is defined ex- 
clusively by its message protocols. As 
you have seen, CommonLoops is of 
the second type because method 
lookup is achieved by a combination 
of object structures and discrimina- 
tion procedures. If things continue to 
proceed as they have been, it is antici- 
pated that this approach will come to 
be adopted as the standard one. 

On the whole, I don’t think it is nec- 
essarily a problem of overwhelming 
difficulty to determine what would 
be the best kind of standard for the 
present as an object-oriented exten- 
sion to Common LISP. Because it is a 
case of needing some standard now 
but not having enough experience 
with this area to fully define the pos- 
sibilities, the only kind of standard 
that can at all serve is a partial stand- 
ard based on those features of the 
technology that have shown them- 
selves to be the most useful and reli- 





able, while leaving the options as 
open as possible. To be more specific, 
I think that a new design for the 
standard needs to be constructed 
from the best features of Common- 
Loops, New Flavors, and ObjectLISP 
that address as many of the key issues 
I have been discussing as is feasible. 

The main things from ObjectLIsP 
that I feel should not be lost are the 
ability to modify objects and their 
variables on the fly and to keep in- 
stances and classes on an equal foot- 
ing. One thing I would particularly 
like to see is a standard that did not 
prevent the option of having instanti- 
ated objects that were not yet formal- 
ly members of any class but that at a 
later time could become “‘associated”’ 
with various classes and gain from 
what could be inherited from them. 
Another important issue from the AI 
perspective is allowing for the coexis- 
tence of multiple types of hierarchy 
in the same binding environment, 
where the same object can be a mem- 
ber of each of the different hierar- 
chies simultaneously if this is so de- 
sired. As explained earlier, this 
feature appears essential for using 
objects to develop systems with deep 
models capable of reasoning about 
objects in real-world settings in terms 
of function, location, and generic 
significance. 

In my next column I will continue 
the discussion of object-oriented pro- 
gramming in AI with a review of PC 
Scheme—an object-oriented pro- 
gramming system for IBM PCs and 
compatibles. 
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The following exchange took place on 
the message board of DDJ FORUM, our 
SIG on CompuServe. 


#: 7972 S9/UNIX for the PC 

17-Nov-86 18:15:23 
Sb: Dead Child Floating 
Fm: Steve Sampson 75136,626 
To: Multitasking expert 
I've been trying to get a CRON pro- 
gram running on a Unix clone, but 
after each task finishes it leaves an 
entry in the process table—‘‘termi- 
nated.’ Of course, this is unsightly, 
and I'd like to get it out. Is there a way 
to pop this without a wait( ) call? If it 
will help I can upload the offensive 
code. Maybe someone has seen this 
type of behavior before? 


“*There is a reply: 7986 


#: 7986 

Sb: Dead Child Floating 

Fm: Fred Buck 73327 ,3604 

Is your only beef that the ps com- 
mand shows the process and says it’s 
terminated? For how long a time 
does this condition continue? If stuff 
keeps clogging the process table, 
then that’s bad news, but you say it’s 
“unsightly,’’ so I assume your objec- 
tion is just to the cosmetic aspects. 
The ps command just takes a snap- 
shot of the process table at the time 
you invoke it, and sometimes the 
dead stuff just hasn’t been cleared out 
by that time. Do successive ps calls 
keep showing the same terminated 
process? 


“*There is a reply: 7995 
4: F995 


Sb: Dead Child Floating 
Fm: Steve Sampson 75136,626 


Yes on the ps. I need to find out if the 
process entry ever goes away, but so 
far the terminated entry stays 
around for many minutes. This is just 
a cosmetic thing and more a question 
of programming. I’m still coming up 
to speed, and there's much to discov- 
er. I have found that when I kill CRON 
all the children drop out of the ps ta- 
ble. 


**There is a reply: 8009 


#: 8009 

Sb: Dead Child Floating 

Fm: Fred Buck 73327 ,3604 

OK, I now believe I understand your 
situation. Let’s see if | can summarize 
it correctly. You have a single, long- 
running process that spawns special- 
purpose children, each of which dies 
when its special purpose is finished. 
Such ‘‘dead” children show up in the 
process table as terminated as long as 
the long-running parent continues to 
run. You know that a wait( ) call will 
clear the entries out of the process ta- 
ble, but you don't want to paralyze 
your long-running parent by ‘“‘wait- 
ing” for children. If I’m correct about 
what your problem is, I don’t know 
any way other than a wait( ) call todo 
what you want to do, but on the 
other hand a wait( ) should be able to 
be broken by a signal, including an 
alarm signal. You should be able to 
clear out the dead children by plac- 
ing, in some frequently traveled por- 
tion of the parent’s code, something 
such as alarm(1); followed by wait( );. 
Each time wait( ) is called, a dead kid 
will be stripped out of the process ta- 
ble (I assume you don't care about its 
exit status). If there're no dead kids 
but one or more alive kids, the 
alarm( ) will break out of wait( ) 
within one second. If there are no 
kids at all, wait( ) should return im- 
mediately. I’m assuming you've 
trapped the alarm signal appropri- 
ately. If 'm wrong about this, then 
just what is your objection to a wait( ) 
call? 

Oops, wait( ); should be wait(0); or 
whatever variant of wait( ) that 
doesn’t care about the child’s exit sta- 
tus. 


“There are replies: 8020, 8090 


#: 8090 

Sb: Dead Child Floating 

Fm: Steve Sampson 75136,626 

Well, I did state the problem in my 
nonverbose mode, but you summa- 
rized it very well. Thanks for the sug- 
gested work-arounds; I'll give them a 


try. 
**There is a reply: 8101 


#: 8101 

Sb: Dead Child Floating 

Fm: Fred Buck 73327 ,3604 

I spoke to a friend tonight who has 
more Unix smarts than I do and can 
now provide the following addition- 
al details: the defunct child processes 
are more than just cosmetic, they in 
fact clog up the system process table 
and can (if sufficiently numerous) in- 
hibit new process creation. In vanilla 
Unix there isn’t really any way to 


handle such a situation other than 


the way I suggested or something 
very much like it. In some versions of 
Unix (perhaps standard in Berke- 
ley—my friend wasn't off-top-of- 
head sure), there’s a call called 
wait3( ), which can be set to serve the 
single purpose of disposing of dead 
children and doesn’t wait for a child 
to die if nothing but living children 
exist. The reason the dead children 
disappear when your CRON is killed is 
that child processes, upon the death 
of their parent, become adopted chil- 
dren of process 1 (init), which is al- 
most always in a wait( ) and so takes 
care of them handily and which ig- 
nores deaths of children it doesn’t re- 
member having spawned itself. 


“There is a reply: 8143 


#: 8143 

Sb: Dead Child Floating 

Fm: Steve Sampson 75136,626 

Good stuff here, Fred! Appreciate 
your help on this. I was thinking 
maybe there was a way to do it but 
was off on a very different tangent. 
The info on process 1 adopting chil- 
dren I suspected but didn’t know 
how to get them adopted. Thanks. 


#: 8020 
Sb: #8009 Dead Child Floating 
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Fm: Levi Thomas (sysop) 76703,4060 
To: Fred Buck 73327 ,3604 

Why do these messages read like a 
Steven King novel? Dead kids? Para- 
lyzed parents? Macabre metaphor- 
s,eh? Shall we start an on-line novel? 
A two-tiered story—on one level, a 
technical problem is stated and vari- 
ous solutions suggested. On another 
level is a horror story in the Edward 
Gorey style. Sorry, I get carried away 
sometimes—carry on. 

—Levi (‘N is for Nevil who died of 
ennui’) Thomas 


**There are replies: 8027, 8054 


#: 8027 

Sb: Dead Child Floating 

Fm: Fred Buck 73327 ,3604 

Not to mention those instances in 
which a dead child prevents stuff 
from being flushed down a pipe. Es- 
pecially if the child has been 
spawned by a demon. 


*“There is a reply: 8029 


#: 8029 

Sb: Dead Child Floating 

Fm: Duane Ellis 76064,1107 

If did not know what you were talk- 
ing about, you would get some very 
strange responses from me. As it is, a 
coworker came by and looked at my 
screen—I had to explain what is 
meant by dead children and flushing 





them down pipes and also the fact 
that they could have a demon for a 
parent! Egads! 


“There is a reply: 8044 


#: 8044 

Sb: Dead Child Floating 

Fm: Fred Buck 73327 ,3604 

Just imagine if Pat Robertson ever got 
a hold of this. 


#: 8054 

Sb: #8020 Dead Child Floating 

Fm: Neil J. Rubenking 72267,1531 

To: Levi Thomas (sysop) 76703,4060 
“S is for Sarah, who perished of fits; 
T is for Titus, who flew into bits.”’ 
—Neil (‘‘C is for Cora, who wasted 
away; D is for Desmond, thrown out 
of a sleigh; J is for Ina, who drowned 
in the lake; J is for Jake, who took lye, 
by mistake .’) Rubenking 


“There is a reply: 8064 


#: 8064 

Sb: Dead Child Floating 

Fm: Levi Thomas (sysop) 76703,4060 
Thanks for the Gorey details. 
<grin> 


“There is a reply: 8076 
#: 8076 


Sb: Dead Child Floating 
Fm: jhon stanley 73765,1026 


We called in an agent from M4 to in- 
vestigate the dead children problem. 
His name was LEX. He lost his GREP on 
reality after spending a day YACCing 
with CAL, the supposed perpetrator. 
CAL gave him the month but not the 
DATE. “MORE,” said LEX, ‘‘TALK, and 
MAKE my day.” Then LEX used his 
pipe on CAL. He pulled CAL’s FINGER 
out of its socket, which caused LEX’s 
pipe to break. 

LEX’s partner walked in. He asked 
LEX to swap space because he had 
CAL’s partner in the other room. 

Lisa was a real looker. Her rap 
sheet was longer than—well, it was 
long. She was ready to confess. LEX 
was thinking of other things. Like, 
was the FTP florist still open?—Lisa 
needed some roses. ‘‘Inode what I 
was doin’. We took ‘em down to the 
STREAM and let them float away. 
They was SLEEPing real peacful. 
What's the DIFF? The superuser 
would a KILLed ‘em when they EXIT- 
ed anyway.” 

It was a dark and stormy night. ... 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 8. 
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Here’s why you should choose Periscope as your debugger... 


You'll get your programs running fast. “It works 
great! A problem we had for three weeks was 
solved in three hours,” writes Wade Clark of 
MPPi, Ltd. 


You’ll make your programs solid. David Nanian 
says, “I can’t live without it!! BRIEF, a text 
editor my company wrote, would not be as stable 
as it is today without Periscope.” 


You'll protect your investment. We won’t forget 
you after the sale. You'll get regular software 
updates, including a FREE first update and 
notice of later updates. You'll get technical help 
from Periscope’s author. And you'll be able to 
upgrade to more powerful models of Periscope if 
you need to. One Periscope user writes, “ 


your support has won over even the heart of this 
hardened programmer!” 


You deserve the best. Thousands of programmers 
rely on the only debugger that PC Tech Journal 
has ever selected as Product of the Month 
(1/86). You owe it to yourself to find out why, 
first hand. 


You can try it at no risk. You get an uncondi- 
tional 30-Day, Money-Back Guarantee, so you 
can’t lose. 


Start saving time and money now — order toll- 
free, 800/722-7006. Use MasterCard, Visa, 
COD, or a qualified company purchase order. As 
one user puts it, Periscope is “one of the rare 
products, worth every penny!” 


New Version 3 is better than ever! 


Periscope I, software, manual, 
protected memory board and 


PYCAMOUESWHEN ucnscdscsaesicwerccs> $345 
Periscope II, software, manual, and 
breakout switch .................005. $175 


Periscope II-X, 
software and manual 


Add shipping - $3 US; $8 Canada; $24 elsewhere. 
The 


PERIS E 


Company, Inc. 


14 Bonnie Lane e Atlanta, GA 30328 « 404/256-3860 
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Object Lesson 


It's clear that building all new software 
from scratch isn't a very productive way 
to work. 

But that's been the only option open 
for developers. Until now. 

Software Evolution 

PPI's object-oriented software engi- 
neering environment lets designers and 
programmers build their own reusable 
Software-ICs®, and use Software-ICs 
built by others—giving them the same 
advantages integrated circuits give 
hardware engineers. 

No longer do systems have to be created 
from scratch. 

The PPI environment is the only object- 
oriented environment available today for 
C language developers. It includes an 
integrated family of object-oriented tools 
that speed up development time, reduce 
complexity, and simplify future enhance- 
ment to systems. 

Objective-C® is the object-oriented pre- 
compiler that lets you build complex systems 
from reusable components, using small 
amounts of new code to attach the parts. 

Vici™, the Objective-C interpreter, is a 
prototyping and debugging tool that lets 
you test code interactively. 

The PPI Software-IC library can be incor- 
porated into programs immediately, as stand- 
alone components, or as a base for build- 
ing new components through inheritance. 





An Ideal AI Substrate 

Objective-C and Vici deliver the kinds of 
capabilities that AI developers have come 
to expect from LISP and LISP-derived en- 
vironments. But since Objective-C and Vici 
integrate seamlessly with C language, AI 
applications can now be built to run in the 
same environment being used for production 
applications. 

Building classes for knowledge repres- 
entation, inferencing engines and rich user 
interfaces is natural and straightforward 
with Objective-C. And integrating know- 
ledge based processing with C applications 
is easier than ever before. 

Real Solutions 

Right now, PPI products are in use by 
many Fortune 500 companies, U.S. Gov- 
ernment agencies and major universities. 
Systems of over 175,000 source lines of 
code have been completed ahead of schedule 
and are in commercial use. 

In fact, many users report a better than 
five-fold increase in productivity on their 
first projects using PPI products. 

Software reusability is finally a reality. 
It's the key to speeding up development 
time and the only way of achieving an 
open-ended, future proof system. 

To learn how PPI products, training and 
support can help you meet your develop- 
ment goals faster, while maintaining high 
quality, call us at (203) 426-1875. 

Or write, PPI, Glen Road, Sandy Hook, 
CT 06482. 





The leader in 
object-oriented software 
engineering 
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es n phi osophy. 
what should we call it? 


It is easy to learn and use, like a panel 
generator, because it allows you to draw your 
text, fields, and colors on the video display. 
But we can’t call it a panel generator, 
because it supports full windowing and 
scrolling, and because screen and field 
information may be stored in your program 
files (EXE) rather than separate data files. 


It is flexible and powerful, like a library- 
oriented programmer’s toolkit, but you are not 
restricted to "visualizing" your data-entry 
windows as you type page after page of code 
to set up borders, fields, text and 
highlighting. Our innovative approach 
(called static windowing) eliminates the need 
for replication of static data in dynamic 
memory. 


It produces tight code, like a YACC (Yet 
Another Compiler Compiler), but you don’t 
have to tolerate a myriad of small program 
modules that need to be compiled and 
maintained. Instead, our "screen designer" 
creates Microsoft object files which you 
simply link with your applications. 


Add to this new, superior design philosophy 
the fact that it has more features, produces 
tighter code, and yields higher performance 
than any of the above. Throw in a clear, 
concise user manual, a thorough on-disk 
tutorial, and some example programs. Top it 
off with a utility program that documents 
each screen and another that allows you to 
prototype (or simulate) your application 
before you write a single line of code. Now, 
what would you call it? 


Let’s settle on a single word. 
Let’s call it the "best." 


But don’t take our word for it. Order your 
demo disk today. You will receive a copy of 
the screen generator, the tutorial, and some 
documentation on the utility programs and 
library routines. Then make the decision 
yourself. 


Or take advantage of our one-time 
introductory offer and get $100 discount if 
you order before March 31, 1987. 


Call (713) 665-4109 for more information. 
Major credit cards accepted. 





ndow, gr ry 
field, many cursor movement options, 
monitor switching, operating system calls, 
help. Set validation mode, highlight current 
field, scrolling by line or page, input mask, 
tabs, initial values. More. Up to 400 lines per 
screen. 


FIELD DEFINITION: 
Left-justify/right-justify/center, uppercase 
translation, built-in character validation, 
byte/integer/word/long/float/ 
double/string/date field validation, retain 
data, auto-erase, protected fields, input 
required, use commas, use zeros/spaces, 
margin bell. User-defined character 
validations, pattern-matching validations, 
picture validations, and field types. More. Up 
to 9999 fields per screen. 


LIBRARY ROUTINES: 

Open, close, move, display, and refresh 
windows. Allow user to edit data fields in 
window, or to view and manipulate a window 
but not change data stored in it. Pull-down 
and pop-up menus. Read screen object file 
from disk. Intercept keyboard filter. 
Override default key actions. Automatic and 
manual refresh. Switch display device, erase 
all data fields on window, plot data onto 
fields or entire screens, retrieve data from 
fields or entire screens, screen image dump, 
retrieve and modify screen and field 
attributes, locate field, force use of bios. 
Direct interfacing with some bios interrupts, 
including cursor and mouse control. More. 
Mnemonic and simple to use. 


REQUIREMENTS: 

IBM PC/XT/AT/JR or true compatible, DOS 
2.0 or later, at least 128K free RAM, and the 
Microsoft C, Pascal, or Fortran compiler or 
the IBM C compiler. Support is available for 
other C Compilers and the XENIX operating 
system. Call for specifics. 


IBM, IBM PC, IBM XT, and IBM AT are 
trademarks of International Business Machines. 


Microsoft and XENIX are trademarks of 
Microsoft Corporation. 
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Screen Designer 


Let’s Do Windows! 
he O Pascal 0 FORTRAN 
0 Please send __ copies @ $345.00 


Introductory discount -100.00 
Your price 245.00 
0 Dat&Windows with Library 

Source Code $695.00 
Introductory discount -100.00 
Your price 595.00 


Hurry! Introductory offer expires March 31, 1987. 


Show Me More! 


O Send me a Demo $10.00 


In Texas add 6.125% sales tax 
Outside U.S. add 15.00 
Total enclosed $ 








Enclosed is 


O Check O Money Order 
O Visa O MasterCard 
Number 





Expiration Date 





State 








Send to: 


MAGUS, INC. 
4545 Bissonet Suite #114 
Bellaire, TX 77401 
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PROGRAMMER’S SERVICES 


~| THE STATE OF BASIC 





The New Face 


of Subroutines 

hose who learned BASIC with 

popular dialects such as Apple- 
soft BASIC, TRS-80 BASIC, MS-BASIC, and 
BASICA know how inefficient the GO- 
SUB <line number> syntax is. First, 
the line numbers do not correspond 
obviously to the tasks that the subrou- 
tines carry out. Second, subroutines 
have no argument lists because these 
BASIC dialects support global vari- 
ables only. These conditions make 
the readability of BASIC programs, es- 
pecially those lacking numerous 
comments, difficult. The good news 
is that the “new wave’ BASICs effec- 
tively handle these problems. In this 
issue I will discuss the way in which 
subroutines are implemented in 
QuickBASIC and True BASIC, taking 
advantage of their similar implemen- 
tations. In the next column, I will 
look at BetterBASIC’s subroutines, 
which are more like those of Pascal. 

The subroutines in QuickBASIC re- 
flect Microsoft's response to the need 
for more sophisticated syntax. The 
solution QuickBASIC offers is twofold. 
First, alphanumeric labels replace 
line numbers. Thus, you can rewrite 
an ambiguous GOSUB 2000 in the old 
BASIC as GOSUB READ.FILE. The label 
READ.FILE says much more than a line 
number of 2000! 

The second boost to subroutines in 
QuickBASIC is the implementation of 
named subroutines that have an op- 
tional argument list, much like those 
in FORTRAN. QuickBASIC supports a 
strict data interface: all variables 
used by the subroutine that do not ap- 
pear in the argument list are local, 
even if they have identical names to 
those of variables in the main pro- 
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gram. Example 1 (below) shows two 
simple subroutines: the first clears a 
screen line, and the other centers text 
on a specified line number. Subrou- 
tine Center.Text calls subroutine 
ClrLine and passes the line number 
specified. The STATIC declaration is 
mandatory and also serves as a re- 
minder that recursive subroutines 
are not yet implemented. 
QuickBASIC subroutine parameters 
are passed by reference when a vari- 
able is used and by value when an 
expression is used. To protect a scalar 
variable from being altered by a sub- 
routine, enclose it in parentheses to 
make it an expression (see comment- 
ed CALL ClrLine in Example 1). 
Passing arrays is also simple. 
QuickBASIC needs to know the num- 
ber of dimensions the array has 
when you declare the subroutine. 
Example 2, page 157, shows a subrou- 
tine that calculates the average and 
standard deviation values of a speci- 
fied column in a numeric table. The 
matrix X is written as X(2) to indicate 
that it’s two-dimensional. QuickBASIC 
provides the LBound and UBound 
functions to return the array’s lower 
and upper bounds, respectively. For 
one-dimensional arrays you simply 
enclose the array name in either 
function to obtain the sought bounds. 
In the case of multidimensional ar- 
rays, a second argument is needed— 
namely, the dimension number. In 
Example 2, the FOR... NEXT loop iter- 
ates for all rows in matrix X. Assum- 
ing that the rows of the numeric ma- 
trix are represented by the first 
dimension and the columns by the 
second, I use LBound(X,1) and 





UBound (X,1) to obtain the row limits. 
The array-bound functions are very 
powerful for helping you write gen- 
eral-purpose routines that manipu- 
late arrays of any size. 

QuickBASIC also provides the 
SHARED attribute, used with COM- 
MON, DIM, and REDIM statements, to 
shorten argument lists of subrou- 
tines. The SHARED attribute declares 
the variables and arrays as global and 
accessible to all routines within a sin- 
gle program. Thus, you should only 
declare variables that are logically 
global (that is, needed by most rou- 
tines) as SHARED to avoid the side ef- 
fects of the old BASICs. 

Finally, QuickBASIC subroutines 
can be exited from using the END SUB 
statement. Subroutines cannot be 
nested among themselves or with 
function definitions. 

True BASIC implements named 
subroutines in a similar manner to 
QuickBASIC. True BASIC does not sup- 
port labels, so the GOSUB <label> 
syntax is not available—just the GO- 
SUB <line_number> (if line num- 
bers are used at all). The preceding 
discussion of QuickBASIC subroutines 
applies to True BASIC, with the fol- 
lowing exceptions: 


¢ True BASIC supports recursive calls. 
¢ The syntax for declaring arrays in 
the subroutine argument lists is 
slightly different. True BASIC re- 
quires a comma for each additional 
dimension. Thus, a simple array X is 
declared as X( ), whereas a matrix X 
is written as X(,), and so on. With the 
advent of True BASIC Version 2, called 
subroutines passing array arguments 





screen 


Example 1:. QuickBASIC subroutines to clear a line and center a text on the 
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can optionally (for enhanced read- 
ability) include parentheses, follow- 
ing exactly the same rules as subrou- 
tine declarations do. 

e True BASIC supports both internal 
and external subroutines. Internal 
subroutines are declared within the 
main BASIC program and before the 
unique END statement. External sub- 
routines can reside in external librar- 
ies, modules, or beyond the END state- 
ment. The difference between the 
subroutine types is their accessibility 
to variables in the main program. 
The main program (up to the END 
statement) is regarded as one pro- 
gramming unit within which all vari- 
ables are accessible. Thus, internal 
subroutines can also create and ma- 
nipulate global variables not appear- 
ing in the argument list. Unlike 
QuickBASIC subroutines, internal 
True BASIC subroutines have no local 
variables. This is an important differ- 
ence to remember if you ever trans- 
late programs between the two im- 
plementations. External subroutines 
do not enjoy the same privilege and 
thus have a stricter data interface, 
similar to that in QuickBASIC. Exam- 
ples 3 and 4 (right) show the True BA- 
SIC versions of Examples 1 and 2, 
respectively. 


Looking at the subroutines in the 
new wave BASICs, you can see a touch 
of FORTRAN present, and why not? 
They offer a radical solution to a 
chronic problem that plagued the old 
microcomputer BASICs. Callable sub- 
routines are also endorsed by Bor- 
land International in its new Turbo 
BASIC. At the time of writing this col- 
umn, I have Borland’s Comdex Fall- 
86 press release, which indicates that 
Turbo BASIC will have the more pow- 
erful subroutine syntax. Perhaps the 
Beatles’ lyrics from a song on the Sgt. 
Pepper album provide a suitable 
comment on BASIC —“‘It’s getting bet- 
ter all the time!” 


o 


Vote for your favorite feature/article. 
Circle Reader Service No. 10. 
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DEF FNMissing = —1E+30 ' define numeric code for missing numbers 


SUB Get .Stat(X(2),Col%, Average, StdDev) STATIC 
' Get average and stnd. deviation of columnCol% of 
; two-dimensional array X(,) 


Sum = 0 
SumX = 0 
SumxXX = 0 


FOR Row% = LBound(X,1) TO UBound(X, 1) 
IF X(Row%,Col%) ) FNMissing THEN ' Valid data? 
Sum = Sum + 1 
SumX = SumX + X(Row%,Col%) 
SumXX = SumXX + X(Row%,Col%)°2 
END IF 
NEXT I 


Average = Sumx / Sum 
StdDev = SOR( (SumXX — SumX*2/Sum) / (Sum — 1) ) 


END SUB 





Example 2: QuickBASIC subroutine to obtain the average and standard de- 
viation of data stored in an array 


SUB ClrLine(Line_Num) 

SET CURSOR 1,Line_Num 

PRINT REPEATS("" '' 80): ! clear line 
END SUB 


SUB Center_Text(T$, Line_Num) 
! Subroutine to center a text 


CALL ClrLine(Line_Num) ! pass Line_Num by reference 
!or 


! CALL ClrLine( (Line_Num) ) to pass Line_Num by value 
- SET CURSOR (40 — LEN(T$)/2) ,Line_Num 

PRINT T$ 
END SUB 





Example 3: True BASIC subroutines to clear a line and center a text on the 
screen 







DEF Missing = —1E+30 ! define numeric code for missing numbers 


SUB Get_Stat(X( -), Col. Average, StdDev) 
! Get average and stnd. deviation of columnCol of 
! two-dimensional array X(, ) 















LET Sum = 0 
LET SumX = 0 
LET SumXX = 0 






FOR Row = LBound(X,1) TO UBound(X, 1) 
IF X(Row,Col) ) Missing THEN ! Valid data? 
LET Sum = Sum + 1 

LET SumX = SumX + X(Row,Col) 

LET SumXX = SumXX + X(Row,Col)“2 
END IF 
NEXT I 







LET Average = Sumx / Sum 
LET StdDev = SQR( (SumxxX — Sumx*2/Sum) / (Sum — 1) ) 


END SUB 


Example 4: True BASIC subroutine to obtain the average and standard de- 
viation of data stored in an array 
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For the Mac 

A full-featured AI development sys- 
tem for the Mac, ExperCommon Lisp, 
from ExperTelligence, allows users 
to develop applications that are inde- 
pendent of the LISP environment. 
Some of the key features of Exper- 
Common Lisp include a development 
environment with more than 1,000 
primitives; an incremental compiler 
that generates 68000 native code di- 
rectly from LISP source code; a trans- 
parent ‘‘load-on-call, load-on-return’”’ 
memory-management/optimization 
technique; an on-line, automatic 
symbolic debugger; a class system; 
and direct access to the Macintosh 
Toolbox. The debugger, class system, 
and direct Toolbox access are totally 
integrated with the compiler. Exper- 
Common Lisp sells for $995. Reader 
Service No. 16. 

ExperTelligence Inc. 

559 San Ysidro Rd. 

Santa Barbara, CA 93108 

(805) 969-7871 


Musicware, a line of products for 
computer music enthusiasts and re- 
cording engineers, is now available 
from Opcode Systems. The line in- 
cludes two MIDI interfaces that work 
with the 512K Mac and the Mac Plus. 
The full-specification Professional 
Plus MIDI Interface sells for $150, and 
the Studio Plus MIDI Interface, which 
features two independent MIDI INs so 
you can record from two keyboards 
at once or record and sync at the 
same time, is priced at $225. Reader 
Service No. 17. 

Opcode Systems 

444 Ramona St. 


Palo Alto, CA 94301 
(415) 321-8977 
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MagicProducts has introduced the 
Magic 800K External Disk Drive and 
the compact MiniMagicDrive for the 
Mac. The External Drive sells for 
$199, and the MiniMagicDrive, which 
is available in 20- or 40-megabyte ver- 
sions, costs $995 or $1,495. Reader Ser- 
vice No. 18. 

MagicProducts Inc. 

4505 Spicewood Springs Rd., Ste. 304 
Austin, TX 78759 

(512) 343-0781 


MacC Jr., from Consulair Corp., is an 
introductory C language develop- 
ment system for the Mac and Mac 
Plus. A complete K & R implementa- 
tion of C, MacC Jr. takes full advan- 
tage of the Mac’s features, letting you 
produce stand-alone applications in a 
single step. It includes an extensive 
standard C and Macintosh support li- 
brary, Pascal function calls for easy 
interface to ROM, enhanced symbolic 
debugging capabilities, and several 
example programs. MacC Jr. sells for 
$79.95. Reader Service No. 19. 
Consulair Corp. 

140 Campo Dr. 

Portola Valley, CA 94025 

(415) 851-3272 


Boards for the IBM PC 

The Rocket 286, from FiveStar Elec- 
tronics, is an add-in accelerator 
board for IBM PCs, PC/XTs, and com- 
patibles. The board provides an 80286 
running at 8 MHz and 8K of zero- 
wait-state cache memory. The hard- 
ware switchable 8088 remains in the 
system for full compatibility with 
most BIOSs. The Rocket 286 measures 
5X9 inches and costs $250. Reader 
Service No. 20. 

FiveStar Electronics Inc. 

3220 Commander Dr., Ste. 102 

Dallas, TX 75006 

(214) 733-4077 


Designed for the Compag 386, IBM PC/ 
AT, PC/XT, and compatibles, Mighty 
Meg is a new 3.5-megabyte extended 
memory board from Quadram Corp. 
The board is also upgradable to 14 
megabytes with 1-megabit parts and 
switchless installation. It is designed 
for use with RAM disks, protected 
mode operating systems such as ADOS, 
Topview, and Xenix applications. 






Mighty Meg is priced from $545 for 0.5 
megabyte of memory to $1,475 for 3.5 
megabytes. Reader Service No. 21. 
Quadram Corp. 

One Quad Way 

Norcross, GA 30093-2919 

(404) 923-6666 


PML Systems has released an add-on 
board and software package that al- 
low non-English speaking PC users to 
run English-language application 
programs in their native languages. 
The PML86 board fits inside a full- or 
half-length PC expansion slot and 
comes with a disk containing the for- 
eign-language drivers needed to 
translate commands into English. 
Language disks are available for 
French, Spanish, German, Greek, Ital- 
ian, Russian, Swedish, Finnish, Thai, 
Vietnamese, and Sanskrit. With one 
language disk, PML86 sells for $375. 
Reader Service No. 22. 

PML Systems 

3139 E. Almond Ave. 

Orange, CA 92669 

(714) 771-7744 


The Professional Image Board from 
ATronics International allows you 
to plug a video camera into a PC or 
compatible and capture live-action 
images. You can then freeze, comput- 
er-enhance, and store pictures on 
disk. The board sells for $595. Reader 
Service No. 23. 

ATronics International Inc. 

1830 McCandless Dr. 

Milpitas, CA 95035 

(408) 943-6629 


Ariel Corp. has introduced a plug-in 
board that provides a complete signal 
acquisition, synthesis, and processing 
system. The DSP-16 combines two 
channels of high-speed, high-resolu- 
tion input/output conversion; a large 
data buffer; and Texas Instruments’ 
second-generation Digital Signal Pro- 
cessing (DSP) microprocessor, the 
TMS32020. Supplied with the DSP-26 is 
a software package consisting of the 
Program Development System and 
five software application programs: 
Data Acquisition, Digital Audio Ef- 
fects, Storage Oscilloscope, Audio 
Loop Editor, Waveform Synthesizer. 
The Program Development System 
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includes all driver routines, a 
TMS32020 assembler, and debug facil- 
ities. A royalty arrangement is avail- 
able for qualified independent devel- 
opers. The DSP-16 is priced at $2,495. 
Reader Service No. 24. 

Ariel Corp. 

110 Green St., Ste. 404 

New York, NY 10012 

(212) 925-4155 





The CADcard Model 1040 from Intel- 
ligent Graphics Corp. features an 
80186 CPU with 512K of memory dedi- 
cated to storing the emulating micro- 
code for IBM's color graphics and pro- 
fessional graphics controller. The 
CPU provides an additional 380K of 
storage for display lists, graphic pa- 
rameters, and user-defined applica- 
tion code. IGC also offers several high- 
end performance options to the basic 
unit, including a graphics accelera- 
tor, a Z-buffer with hardware hidden 
surface removal for solids modeling, 
and an 8087 coprocessor for user ap- 
plication software. CADcard Model 
1040 sells for $1,750. Reader Service 
No. 25. 

Intelligent Graphics Corp. 

4800 Great Amercia Pkwy. 

Santa Clara, CA 95050 

(415) 986-8373 






Discovery Systems has released an 
audio-cassette training program for 
Autodesk’s AutoLISP, a training 
course for AutoCAD users. The eight 
lessons provide a step-by-step pro- 
gram with complete instructions to 
create custom AutoLISP functions, 
custom menus, and other time-saving 
utilities. The price is $179. Reader Ser- 
vice No. 26. 

Discovery Systems 

34 Autumnleaf 

Irvine, CA 92714 

(714) 783-9890 
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FORUM 


SWAINE'S FLAMES 


wal Mattel and Axlon have been 
44@™@ granted permission by the FCC 
to broadcast robotic control signals to 
Mattel and Axlon toys as part of a 
new departure in children’s televi- 
sion programming. The toys will 
move in response to events on screen 
and shoot at targets on the screen. 
This scheme is being touted as ‘‘inter- 
active,’ which is nonsense. 

There is an interesting precedent 
for such “interactive” television, and 
it seems to include all the elements of 
the present case but one. The prece- 
dent had special products that al- 
lowed a similar level of “interaction”’ 
with the television program; it creat- 
ed two classes of viewers—those 
who had the products and those who 
didn't; and it was initially perceived 
as a departure in children’s television 
programming. What it did not have 
was an individualized signal sent out 
over the public airways. 

The precedent I have in mind was 
a cartoon series called “Winky Dink 
and You’ from the days of black-and- 
white television. If you sent for a spe- 
cial plastic sheet to place over your 
television screen and special crayons 
for drawing on it, you could custom- 
ize W. Dink’s on-screen adventures. I 
don't recall that the producers were 
accused of economic discrimination, 
but those were black-and-white 
times. 

Subtract Winky Dink from the Mat- 
tel/Axlon scenario and you are left 
with the individualized television sig- 
nal and the question of the appropri- 
ate use of a limited information chan- 
nel. I suspect that any effective 
protest of the plan will focus on that 
signal. I also suspect that this skir- 
mish, like the Captain Video airwave 
hijacking of last year, presages an in- 


creasing number of battles for band- 
width. —< 


There has been some discussion in 
our pages and in some more archly 
academic journals of the failings of 
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conventional implementations of 
PROLOG as a tool for logic program- 
ming. One writer who has not only 
criticised but suggested ways to bring 
PROLOG closer to the ideal of logic 
programming is Lee Naish, who ad- 
dresses PROLOG’s knottiest problems 
in his book Negation and Control in 
Prolog (Berlin/Heidelberg: Springer- 
Verlag, 1986). 

All PROLOG implementations have 
some problem with negation. PRO- 
LOG is based on Horn-clause logic, and 
negative information cannot really 
be expressed in Horn-clause form. 
PROLOG implementations typically 
treat negation by more or less identi- 
fying it with failure: letting x cannot 
be proved stand for x is false. This is 
often a perfectly reasonable thing to 
do, but if implemented naively it can 
lead to illogical conclusions. Naish 
lays out recommendations for the ef- 
fective implementation of negation. 
PROLOG vendors should read them. 

The problem with control in PRO- 
LOG programs is that semantically in- 
nocuous variations in the control log- 
ic can cause huge changes in 
performance. Naish contends that 
the heuristics of good PROLOG coding 
that programmers have developed to 
deal with this problem are by and 
large simple, effective, and automat- 
able. His approach is to let a prepro- 
cessor restructure the code to avoid 
the worst of the inefficiencies. PRO- 
LOG programmers should read this 
part. 


My cousin Corbett has recently 
been combining catastrophe theory 
with market analysis and producing 





surprising results. Catastrophe the- 
ory is the fledgling discipline that 
studies systems on the brink, where 
the fundamental assumptions on 
which the study of the systems is 
built cease to apply. 

His inspiration was an article on 
parallel computers in High Technolo- 
gy magazine. Having approached the 
article to learn about the parallel- 
computer market, he was non- 
plussed to find that there was no 
such thing: that there are degrees of 
parallelism; that different architec- 
tures serve different purposes; that 
the parallel machines do not com- | 
pete in one market but define several 
overlapping, interdependent market 
fragments. 

Expanding his research, Corbett 
found other computer industry mar- 
kets in catastrophic transition. The 
80386 computer market, with its pre- 
natal cloning, spectre of proprietary 
designs, and its nonexistent software, 
has been a particularly fruitful ob- 
ject of study. Then there’s the C com- 
piler market, clearly catastrophic, 
through which Corbett discerns a 
major fault line developing with op- 
timization on one side and conve- 
nience on the other. When the big 
split comes, Corbett says, half the C 
market will fall away into ease of use. 

The night before it happens, farm 
animals will be restless. 


Oh, yes. If I remember correctly, 
the Winky Dink television program 
went away in the face of parental 
protest. Apparently the producers 
had not reckoned with the resource- 
fulness of American youth, who 
quickly discerned that there was no 
need to send for the special plastic 
sheet or the special crayons. You 
could just draw on the glass with 
your Crayolas. 
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This is the only way we can get some of our customers to 
take their hats off to us in public. We understand. Most 
people like to keep a good thing to themselves. 


Once you see how powerful and simple our functions are, 
you'll want to treat our Communications Library Plus as a 
well guarded trade secret too. 


Essential provides the best alternative to Assembly 
language for communicating 
via an RS-232. 


However, should 
Curiosity get the best 
of you, call us at 
201-762-6965 and 
we'll let you in on 
the identity of some = 
of our secret. 
admirers. 





Behind every 
great program Is a great library 


What Good Are Library Functions If 
You Can’t Get Them To Work? 


Providing functions is not enough. Essential Communica- 
tions Library Plus includes BreakOut, a slick on-line data 
monitor. BreakOut saves hours of frustration. We know, 
we used it to debug the XMODEM and other functions in 
Essential Communications. 


No Royalties, 30-Day Guarantee 


If within 30 days you don’t find our library or BreakOut 
totally satisfactory, hang the whole thing up and receive a 
complete refund. 





Some Very Impressive People Keep Our 
Asynch C Tools Under Their Hats 










Functions At A Glance 

@ Interrupt driven to 9600 © Input buffers to 500K 
baud @ Source included 

¢ Hayes compatible support @ Demo terminal program 

@ 150 page manual — tutorial © Demo BBS system 

¢ XMODEM, XON/XOFF e All major compilers 


support supported 
e Timer/Keyboard functions © Ctrl-Break status 


















Comm Library Plus/BreakOut $250 Comm Library $185 


BreakOut On-line Monitor/ Debugger 
© Monitor RS232 ports up to 9600 baud 

¢ Control comm variables and line signals 

© Send/receive data using the scratch-pad editor 

e Edit scratch-pad in Hex or ASCII 

@ Save data to file or re-transmit it 

e User configurable keyboard macros 

@ Use symbols for control chars (<ACK>) for Hex 06 









BreakOut $125 


Do Your Homework 


The library you buy will influence the rest of your 
programming life. When you’ve done your homework, 
you'll choose Essential. Call our support staff of C pro- 
grammers and find out now how things 
a will be after your check clears. 







To order or for support 

call: 201-762-6965 
=» For foreign orders contact: 
England: Gray Matter Tel. (0364) 53499 


Japan: Lifeboat Inc. of Japan Tel: 293 4711 
West Germany: Omnitex Tel. 07623-61820 


Essential Software, Inc. 


PO. Box 1003, Maplewood, New Jersey 07040 


Circle no. 138 on reader service card. 
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urbo C: The 

fastest, most 
efficient and easy- 
to-use C compiler at 
any price 


Compilation speed is more than 
7000 lines a minute, which makes 
anything less than Turbo C an 
exercise in slow motion. Expect 
what only Borland delivers: Quality, 
Speed, Power and Price. 


Turbo C: The C compiler 
for amateurs and 
professionals 

If you're just beginning and 
you've “kinda wanted to learn C,” 
now’s your chance to do it the easy 
way. Like Turbo Pascal, Turbo C’s 
got everything to get you going. 

If you're already programming 
in C, switching to Turbo C will 
considerably increase your produc- 
tivity and help make your programs 
both smaller and faster. Actually, 
writing in Turbo C is a highly 
productive and effective method— 
and we speak from experience. 
Eureka: The Solver™ and our new 
generation of software have been 
developed using Turbo C. 


Sieve benchmark (25 iterations) 
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Benchmark run on a 6 Mhz IBM AT using Turbo C version 1.0 and the 
Turbo Linker version 1.0; Microsoft C version 4.0 and the MS overlay linker 
version 3.51; Lattice C version 3.1 and the MS object linker version 3.05. 


BORLAND 


INTERNATIONAL 


Vive lo upprerce 


Turbo C 


Turbo C: a complete 


interactive development 


environment 


Like Turbo 
Pascal® and 





=~ Turbo C comes 
with an interactive editor that will 
show you syntax errors right in your 
source code. Developing, debug- 
ging, and running a Turbo C 
program Is a snap. 


Turbo C: The C compiler 
everybody’s been 
waiting for. Everybody 
but the competition 


Borland's “Quality, Speed, Power 
and Price” commitment isn’t idle 
corporate chatter. The $99.95 price 
tag on Turbo C isn’t a “typo,” it’s 
real. So if you'd like to learn C in a 
hurry, pick up the phone. If you’re 
already using C, switch to Turbo C 
and see the difference for yourself. 


System requirements 


IBM PC, XT, AT or true compatibles. PC-DOS (MS-DOS) 
2.0 or later. One floppy drive. 320K. 





*Introductory price—good through July 1, 1987 


only $9995, 
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For the dealer nearest you or to order by phone call 


(800)255-8008 


in CA (800) 742-1133 in Canada (800) 237-1136 


Circle no. 161 on reader service card. 








Technical Specifications 
({ Compiler: One-pass compiler 
generating linkable object modules 
and inline assembler. Included is 
Borland’s high performance “Turbo 
Linker.” The object module is com- 
patible with the PC-DOS linker. Sup- 
ports tiny, small, compact, medium, 
large, and huge memory model 
libraries. Can mix models with near 
and far pointers. Includes floating 
point emulator (utilizes 8087/80287 
if installed). 


[4 Interactive Editor: The system 
includes a powertul, interactive full- 
screen text editor. If the compiler 
detects an error, the editor auto- 
matically positions the cursor 
appropriately in the source code. 


[Development Environment: A 
powerful “Make” is included so 
that managing Turbo C program 
development is highly efficient. 
Also includes pull-down menus 
and windows. 


™_ Links with relocatable object 
modules created using Borland’s 
Turbo Prolog into a single program. 

[™ ANSI C compatible. 

[Start-up routine source code 
included. 


(4 Both command line and integrated 
environment versions included. 
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